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“dBASE ILis far, tar better 


thana shoehorn” 


Rusty Fraser 
President 
Data Base Research Corp. 


“We laughed when 
our customers asked us 
to put our minicomputer- 
based real-time accounting 
system, The Champion;™ 
on a micro. 

“No way was it going 
to fit, we thought. 

“We'd have to create 
our own database manage- 
ment system and, even 
then, it'd be a tight squeeze. 

“Then we discovered 
dBASE IL, the relational database 
management system for microcom- 
puters from Ashton-Tate.” 


“dBASE II was a perfect fit.” 


“dBASE II is a program devel- 
oper’s dream come true. The dBASE Il 
RunTime™ module quickly provided 
us with the powerful text editing, 
data entry speed and other ‘building 
block’ capabilities we needed to 
develop and deliver a new Champion 
to our customers—the leading real- 
time on-line accounting system avail- 
able for a micro.” 


The short cut to success. 
The dBASE II RunTime module 
has helped a lot of program devel- 








Beit, 


opers like Data Base Research become 
successful software publishers. 
For more about dBASE II and 
RunTime, contact Ashton-Tate 
10150 West Jefferson Boulevard, 
Culver City, CA 90230, (800) 437-4329, 
ext. 217. In the U.K., call (0908) 568866. 
For more about The Champion, 
call Data Base Research at (303) 987-2588. 


ASHTON ‘TATE 





dBASE II is a registered trademark and RunTime is a trademark of Ashton-late. 
The Champion is a trademark of Date Base Research Corporation. 
© Ashton-Tate 1983. 
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Professional BASIC™ cuts your 
program debugging time in half | 
Or your money back. 


The 8087 Connection. Accurate, 


ntroducing Professional 
High - Speed Math. 


BASIC™. A powerful new 
BASIC programming language that 
can help you debug, or learn—and 
then master—the language. Profes- 
sional BASIC can actually double 
your programming efficiency. Or 
your money back. * 


What You See Is What You Get. 


Because Professional BASIC has a 
sophisticated window-oriented 
system environment—containing 
more than a dozen visualization 
and debugging screens—you see 
clearly and precisely the execution 
of your program. Line by line pro- 








Professional 
BASIC was de- 
signed to use the ultra- 
fast 8087 math coprocessor. 

The 8087 allows floating-point 
math operations to be performed 
with lightning speed. Professional 
BASIC enables you to fully utilize 
the 8087— to dramatically acceler- 
ate execution of programs involving 
complex floating-point computa- 
tions. (8087 coprocessor optional. ) 


Read What The Experts Say. 


“This version of BASIC sets new 





gram execution unfolds via a dy- 
namic program trace...showing 
changes in variables or array ele- 
ments...or the progress of FOR/ 
NEXT loops or GOSUBS. Using Pro- 
fessional BASIC, even beginning 
programmers will be able to pro- 
duce code quicker, with far less 


frustration. 
Now, Access All The Memory Of standards for 
Your PC. usability and ‘user 


friendliness’.” “Morgan's 
product supports, in an unprec- 
edented way, the visualization of 
program execution.” 


Professional BASIC can use all of 
the mem- 
ory avail- 
able in 

your IBM 
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April 1984 
Byte Magazine 


“The real magic of Profes- 
sional BASIC is its wealth 
of ‘windows’ into an ex- 
ecuting program.” “I’m 
frankly amazed. My hat 

is off to Dr. Bennett... 

An elegant piece of cod- 
ing indeed.” 
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February 1984 
Personal Computer Age 


“This version of the 
language sets new stan- 
dards...” “The user interface... 
is unbeatable for program develop- 
ment.” “... You owe it to yourself to 
pick up the phone and order a copy 


Personal Com- 
puter. (If expan- 
sion boards are 
used, that means 
up to 640K.) Now 


you can create and of Professional Basic.” 
run programs almost as big as your June 1984 
imagination—and talent. Dr. Dobb’s Journal 
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Makes Learning The BASICs 
A Snap. 


Learn more about the BASIC lan- 
guage...in significantly less time. 
With Professional BASIC there are 
over 18 different ways to view your 
program as it operates, step by step. 
On a split screen display you 
see, on one side, a dynamic 
display of your 
executing 
program's 
code...on 
the 
other 
side you 
actually see 
changes in variables 
as they occur. 















Ask your local dealer for a 
demonstration, or call or write 
Morgan Computing Co., Inc. at 
10400 N. Central Expressway, 
Suite 210, Dallas, Texas 7523 
(214/739-5895). Suggested re- 
tail is $345.00. (Dealer inquiries 
welcome.) Demo disk is $5.00 
(includes demo on TRACE86™ 
and TED™). 


*Sole remedy for failure of product to double your 
debugging speed is return of full purchase price. To 
obtain a refund you must act within thirty (30) 
days of purchase (i.e., return both product and 
original sales receipt) and have completed and filed 
all warranty registrations with MCC. Further, you 
must reaffirm you have not copied the product 

or violated any copyright of MCC. Contact 

MCC for additional information. Offer expires 
November 1, 1984. 





Morgan Computing Co., Inc. 


Software Designed 
By Professionals. 
For Professionals. 


COHERENT" IS SUPERIOR TO UNIX’ 
AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn’t just taken a mini-computer 
operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 
capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. 


For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- 
compatible, UNIX software will run on the PC under 
COHERENT. 


The software system includes a C-compiler and over 100 utili- 
ties, all for $500. Similar environments cost thousands more. 


COHERENT on the IBM PC requires a hard disk and 256K 
memory. It’s available on the IBM XT, and ‘Tecmar, Davong 
and Corvus hard disks. 


Available now. For additional information, call or write, 


Mark Williams Company 
1430 West Wrightwood, Chicago, Illinois 60614 
312/472-6659 


Mark 
Williams 
Company 


Ww 





COHERENT is a trade mark of Mark Williams Company. 
*LJNIX is a trade mark of Bell Laboratories. 
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Apex Industries Customer Data 


Customer Id: Acme : 
Customer Name: Acme !ndustries 


Credit Rating: AA Credit Limit: 25000 


Current Balance: 
30 Day Balance: 
ol OR BE Wi =¥-1 Lalo 
90 Day Balance: 


Billing: 


12500 
4000 
1500 

0 


Address: 2701 South Bayshore Drive 
City: Miami State: FL Zip: 33133 


Shipping: 


Address: 913 Majorca Avenue 
071 shal Oe) ¢- 1 CF] 0) (=e) C1 (eof Md OMY 
Phone: 305-856-7503 Contact: Gerald Green 


DataFlex is the only application development 
database which automatically gives you true 
multi-user capabilities. Other systems can lock 
you out of records or entire files for the full 
time they are being used by someone else. 
DataFlex, however, locks only the data being 
changed, and only during the micro-seconds it 





takes to actually write it to the file! The updated 
record is then immediately available. The 
number of users who can access, and change, 
records at the same time is limited only by 

the number of terminals on your system or 
network. Call or write today for all the details 
on DataFlex...the true multi-user database. 
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DATA ACCESS CORPORATION 


8525 SW 129 Terrace, Miami, FL 33156 (305) 238-0012 
Telex 469021 DATA ACCESS Cl 


Compatible with CP/M-80, MSDOS networks, MP/M-86, Novell Sharenet, PC-Net, DMS Hi-net, TurboDOS multi-user, Molecular 
N-Star, Televideo MmmOST, Action DPC/OS, IBM PC w/Corvus, OMNINET, 3Com EtherSeries and Micromation M/NET. 


MSDOS is a trademark of Microsoft. CP/M and MP/M are trademarks of Digital Research. 
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In this Issue 


This month’s articles focus primarily on text files, from protection to compari- 
son to indexing to printing. Our cover article presents a public-domain, infinite- 
key encryption system for CP/M, with discussion ranging from the theory behind 
constructing a secure encryption system to practical considerations that can af- 
fect the design. For those interested in trying out (or trying to break) this system, 
the code and documentation should be available from a number of sources by the 
time you read this. In addition to obtaining a disk from the authors, a couple of 
places you should find it are on Byron McKay’s PicoNet RCPM (415-965-4097) 
and Mel Cruts’ RCPM (408-263-2588). We’ll update you periodically on where 
else it may be obtained through the Letters to the Editor column. 


Upcoming Special Issues 


Next month we present our fourth annual Forth issue. As in past years, the 
response has been good, and you should find it useful and educational. Unix 
authors should note that we are planning a special Unix issue for this December. 
Those interested may contact us by phone or mail to discuss topics. We should 
receive manuscripts by September 7, 1984. We prefer receiving manuscripts via 
magnetic or electronic media, but we are still building our repertoire of capabili- 
ties. Contact us to coordinate disk formats or electronic services. 


A Brief Reminder 


We have already begun receiving entries for the Doctor’s Fifth Generation 
Programming Competition. Those who wish to participate should remember that 
entries should be postmarked no later than September 31, 1984. If this is the first 


you have heard of it and would like details, give us a call or look in the May and 
June issues of DDJ. 


This Month’s Referees 


Dr. Dobb’s Journal regularly draws on the expertise of a Board of Referees for 
technical evaluation of material submitted for publication. In addition to re- 
marks to the editors concerning accuracy and relevance on manuscripts, the 
referees often provide constructive comments for authors regarding clarity or 
completeness. Their remarks help prevent authors from exposing blindspots or 
misconceptions in print and help ensure that our readers receive clear and accu- 
rate information. The referees who contributed to this month’s issue are: 


Wayne Chin, Hewlett-Packard John K. Taber, IBM 
John P. Keyes, Syracuse University 
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EDITORIAL 





he Apple Macintosh is frustrating. Its major use right now seems to be for 

drawing pictures. Macwrite is slow. The amount of disk swapping the 

machine requires is unacceptable. The machine forces users to learn to 
operate a new control, the mouse. (MicroPro president Seymour Rubinstein says 
of the mouse that it’s great for people with three hands.) And the Mac has no 
color. 

If you write software or build hardware, the Mac is a source of particular 
frustration. To design software for it you have to buy a Lisa, and to buy a Lisa 
you have to sit on a rubber waiting list that always seems to be three months long. 
Hardware manufacturers can’t do much with that closed box: you need a foot- 
long hex driver just to open the case, there are no slots and it takes courage to 
imagine modifying a four-layer motherboard. (Nevertheless, some nerveless 
hardware hackers are already creating their own 512K fat Macs.) 

Despite all these frustrations, it remains the case that the Apple Macintosh has 
changed the entire nature of the game. It has redefined the computer-person 
interface, so radically altering the way people deal with computers that we can’t 
go back to the simpler days. It makes the IBM PC look like a Processor Technolo- 
gy Sol. 

Go into a computer store that has a Mac in stock and you'll see novices ap- 
proaching and using the machine without fear or prodding. You'll hear people 
who claim not to like computers grudgingly admitting they like this one. 

The Mac was designed with more thought for the user than any other personal 
computer. Consider the windows: there are window implementations for the IBM 
PC and other machines; why are they unsatisfying? Author Cary Lu thinks it’s 
because they are still dependent on character-mapped graphics. The result: “the 
‘desktop’ looks cluttered,” according to Lu. The Mac’s display design principle 
(everything is graphics) makes it simple to implement various character fonts, 
and the different fonts make the different window displays distinctive. So Mac 
windows are beautiful and natural, while windows on the PC look cluttered and 
kludgy. 

Yes, the Mac lacks cursor keys, and the Model T lacked reins. Keyboards are 
good for typing letters and numbers. To imagine that they are the best way to 
represent movement in 2-space is to exhibit remarkable naivity. 

Yes, MacWrite is slow. Some programmers recognize that inadequacy as an 
opportunity, and one of them will probably get rich from the observation. Better 
word processors will supplant the first version of MacWrite. At least two are in 
the works at Apple, but the eventual winner is likely to come from outside. Apple 
won’t mind. 

Apple (and, yes, Xerox PARC where the ideas originated) put considerably 
more thought into the Mac/Lisa user interface than MITS put into the Altair bus 
in 1974. But just as MITS’s competitors took the Altair bus away from MITS and 
refined it into the S-100 bus, good programmers can make the Mac/Lisa user 
interface their own. Can, and will. 

Probably just about the time some new development makes it obsolete. 


SPiicladt Sora rs 


Michael Swaine 
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LIFEBOAT™ 


Associates 


1651 Third Avenue 
New York, NY 10128 


800-847-7078 
212-860-0300 


Please send me free information on: Name 





(} Lattice and development tools Company 

_} How to get your software published 

_) Corporate purchase program Address 

L) Dealer program 

L) Send me the complete LIFEBOAT State 
software catalog. $3.00 enclosed 
for postage and handling. Telephone 
LIFEBOAT, Software with Full Support, HALO, TM Media Cybernetics 
C-CHEST,TM Lifeboat Associates PANEL,TM Roundhil! Computer, Ltd 
LATTICE C-FOOD SMORGASBORD and PMATE and PLINK,TM Phonix Software 
LATTICE WINDOW,TM _ Lattice, Inc. FLOAT87,TM Microfloat 
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L) OEM agreements City 


Zip 


IBM and PC,®TM International Business Machines 
MS,TM Microsoft 
CP/M86,TM Digital Research 





LETTERS 


A String Finding Function 


Dear Editor: 

I very much enjoyed the article “Opti- 
mizing Strings in C” by Edward McDer- 
mott in the April ’84 issue (DDJ #90). 

One of the several additional rou- 
tines suggested was one for locating 
strings. I needed such a routine to run 
under the Software Toolwork’s uptown 
sister of Small C, C/80. Since it passes 
its arguments on the stack in the same 
fashion that Mr. McDermott’s listing 
appears to expect them, I thought that 
the accompanying Listing One (page 
10) might be of value. 

At the time it was developed, I need- 
ed a routine for locating a string in a 
CP/M file placed in RAM, thus the 
string to be searched is called a “Char- 
acter file’ and the default terminator 
is CP/M’s end of file 1Ah. If EOF is 
defined otherwise in the program, any 
terminator such as 0 may be used. 

Sincerely, 

Paul C. Barton 
Col. Wilkins Rd. 
RD 1 

Milford, NH 03055 


improved Directory 


Dear DDJ: 

I have enjoyed the Dan Daetwyler 
article ‘Sorted Diskette Directory for 
the IBM PC” (January DDJ, #87). One 
of the advantages of implementing 
something of that sort is the opportuni- 
ty to add a few personal flourishes. I 
enclose two additions that do addition- 
al tasks, and a third which corrects an 
annoyance. 

First, although one may not want 
hidden files included on the COVER, I 
do want to know that there are such 
files on the diskette, and how many. I 
have added code to count them and in- 
dicate the count at the end of the list. 

Second, I find it very convenient to 
group like files together—e.g., list all 


.COM files first (alphabetically), then 
all .BAS files, and lastly all the other 
files. I have included a procedure 
(COORDR) that prompts for the file 
name extensions that you wish to place 
first on the sorted list, and changes in 
COSCAN and COPRNT that handle 
the modified sort and print. 

Finally, I note that if you have a file 
with the maximum 8-character file 
name plus maximum 3-character ex- 
tension, and a file length greater than 
99999, there is no space in the listing 
between name and length. I have add- 
ed a single space between each column 
to take care of this. 

I enclose complete listings (Listing 
Two, page 11) of the added procedure 
COORDR and the two procedures 
which have significant additions (COS- 
CAN and COPRNT, Listings Three 
and Four, pages 12 and 16). I also in- 
clude full listing for COENDP (Listing 
Five, page 21) since, although there 
are only minor changes, it is short. In 
addition to the listings included, you 
need to add ‘“GETORD:NEAR” to the 
EXTERN definition in the main pro- 
gram COVER, and the code line 
“CALL GETORD”’ following the 
“CALL GETTTL” (line 79 in the pub- 
lished listing of COVER). Finally, add 
code to make the PROC DECMAL in 
COTITL a PUBLIC definition. 

Yours truly, | 

Bruce F. Cameron 
4067 Rose Hill 
Cincinnati, OH 45229 


Relief for User Frustration 


Dear Editor: 

As you are no doubt aware, a prob- 
lem of great dimension has surfaced in 
the computer industry, which is a 
cause of major concern for growing 
thousands of computer users. I speak 
of the problem of user frustration. 

An individual who purchases a com- 
puter from a local dealer sometimes 
gets sold a “bill of goods.” Even if the 





dealer has been completely honest and 
aboveboard, the average user faces the 
problem of climbing a veritable Ever- 
est of manuals and other documents in 
an attempt to put the new purchase to 
work. I think you will agree with me 
that a great percentage of such persons 
experience teeth-grating frustration. 

What to do? I am proposing a prac- 
tical solution to the problem. An arti- 
cle that appeared in the April 2 issue of 
InfoWorld described a ““movement” | 
am attempting to organize. Calling 
ourselves the Society for the Preven- 
tion of Cruelty to Prospective Comput- 
er Purchasers (SPC-—>PCP), our pur- 
pose is to link people with problems to 
people with solutions. 

I have found through 20 years of ex- 
perience in the computer industry that 
technical people are very friendly, on 
the whole, and willing to help others. I 
am trying to locate a large number of 
such technical people who would be 
happy to share their expertise with 
neophytes. Once I have accumulated 
such a list of experienced helpers, | 
shall advertise in computer magazines 
that such a list exists, and for a small 
fee (to cover the cost of the ads), any- 
one may send for a list of members in 
his or her immediate area. 

The response I have been getting is 
overwhelmingly enthusiastic. The 
technical community is more than will- 
ing to support such an endeavor. In the 
process, of course, they may make re- 
lationships with some very important 
contacts. Everyone benefits! 

I am hoping that, as a concerned 
member of the community of comput- 
er professionals, your magazine will 
lend support to SPC->PCP by helping 
me to contact the experienced techni- 
cal individuals needed to offset the 
wave of frustration that is growing 
larger with each passing day. Your as- 
sistance is urgently needed. 

Thank you very much. 

Yours very truly, 
Burton Bhavisyat 
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SPC-—> PCP 
Rte 1, Box 318 
Moundsville, WV 26041 


DRI Indifferent? 


Dear Editor: 

I have never written a letter to DDJ 
before although I am a charter sub- 
scriber and I still have every issue since 
number |. I have always admired your 
courage in publishing the facts to pro- 
tect the public. 

I feel it is necessary to warn users of 
an attitude at Digital Research which I 
will (with restraint) call “unabashedly 
indifferent.” We used to accuse a par- 
ticularly large mainframe manufac- 
turer of this attitude, but it appears 
that Digital Research has fallen to new 
depths in the same attitude. Let me re- 
count one small example, which will 
hopefully help others too. 

We bought the Manx C compiler 
version 1.05G for $200. It had several 
bugs. We were promised version 1.06 
would solve those bugs—unfortunately 
it cost us $250 to upgrade to version 
1.06 two months after buying 1.05. 
That’s bad enough. Version 1.06 also 
had bugs: some error messages had 
misspelled words in them and other 
very minor bugs. 

The major problem was that the 
Manx linker crashed when trying to 
link a program which was correctly 
linked by 1.05. Version 1.06 advertised 
the ability to use the Digital Research 
RMAC/LINK programs. We said, 
great, we will use those. Apparently, 
no one at Manx had actually tried 
that—the compiler generated under- 
scores and periods in names which the 
RMAC compiler could not handle. 
Manx has not yet communicated a fix 
for their linker, but did get me a patch 
after frequent calls (about six) and ap- 
proximately two weeks. This did hold 
us up significantly in our development, 
but at least Manx did respond. 

The patch was not for their compil- 
er; instead, it was for RMAC. The 
patch, only a few lines, made RMAC 
accept underscores and periods. We 
discovered several bugs at that point 
with Digital Research’s LINK—the 
worst was sprinkling of addresses on 
top of code when both ASEGs and 
CSEGs were used in the same area of 
memory. After we figured that out (it 
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Squeezing 
A Large Program Into 


It's time you got Plink86™ the 
overlay linkage editor that’s 
bringing modular programming 
to Intel 8086-based micros. 

With Plink86* you can write a 
program as large and complex 
as you want and not worry about 
whether it will fit within available 
memory constraints. You can 
divide your program into any 
number of tree-structured over- 
lay areas. 4095 by 32 deep. 
Work on modules individually. 
Then link them into executable 
files. All without making changes 
to your source program 
modules. 

Use the same module in dif- 
ferent programs. Experiment 
with changes to the overlay 
structure of an existing program. 
Use one overlay to access code 


A Small Memory Space? 





Tiga, 


is 


and data in other overlays. 

Plink86 is a two-pass linkage 
editor that links modules cre- 
ated by the Microsoft assembler 
or any of Microsoft's 8086 com- 
pilers. Plink86 also works with 
other popular languages, like 
Lattice C, C86, or mbp/COBOL. 
And supports symbolic debug- 
ging with Phoenix’ Pfix86 Plus™ 

Plink86 includes its own ob- 
ject module library manager — 
Plib86™ — that lets you build 
libraries from scratch. Add or 
delete modules from existing 
libraries... Merge libraries... 

Or produce cross-reference 
listings. 

Why squeeze any more than 
you have to? Plink86 by Phoenix. 
$395. Call (800) 344-7200, 
or write. 


site 


ho . 








ipo 


Phoenix Computer Products Corporation 
1416 Providence Highway, Suite 220 


Norwood, MA 02062 


In Massachusetts (617) 769-7020 


*Plink86 will run under PC DOS, MS-DOS™ or CP/M™-86. 


Plink86, Pfix86 Plus and Plib86 are trademarks of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation. CP/M is a trademark of Digital Research, Inc. 
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wasn’t easy), we avoided the con- 
structs which caused them. The prob- 
lems could not be demonstrated with a 
small test program (apparently due to 
table overflows?), therefore we didn’t 
bother DR, knowing the difficulties in 
dealing with them. 

We finally came across a bug in 
RMAC (very difficult to find) which 
we traced back to the original non- 
patched RMAC (version 1.1). The fol- 
lowing program demonstrates it: 


REPT 110 
DB 0 
ENDM 
END 


The DB statement gets repeated 78 
times! After some experimentation we 


Manx C compiler, and the problem 
was so easily demonstrated, we decid- 
ed to call Digital Research. 

We subscribe to Digital Research’s 
$250 software maintenance program 
because we learned long ago that their 
regular maintenance line is perpetual- 
ly busy (I have an automatic dialer). 
To make a long story slightly shorter, 
after four days of phone calls, all the 
way to the head of marketing, their at- 
titude seemed to be: 

1. That DR doesn’t support 8-bit 
products anymore, because they don’t 
make DR money, and 

2. That even if they decided to fix it, 
it would be a year or so. 

What capped it off was that the 
head of marketing told us we might 
want to purchase the $250 mainte- 


small company. Their attitude is un- 
derstandable, they aren’t millionaires, 
and they do try. Digital Research 
seems to have gotten fat and sassy and 
said to heck with the user and his prob- 
lems. A bug is a bug and should be 
fixed. 

This is only one of dozens of prob- 
lems I have had with DR since | start- 
ed using CPM V1.3 in 1976. I have im- 
plemented the BIOS/XIOS for V1.3, 
V1.4, V2.2, V3.0 and MPM V1.1, 
V2.1, found many bugs, never had any 
of them fixed or replied to, written 
many letters to DR, and received no 
replies. 

This was such a simple bug that 
caused so much trouble, I just had to 
write to warn potential DR users what 
I think they can expect. 


discovered that all numbers between | nance package. That was the straw Sincerely, 
97 and 122 were reduced by 32. This, | that broke the camel’s back. When we Steve Conley 
of course, in retrospect, is an unfortu- | informed him we currently did sub- 2030 Powers Ferry Rd. 
nate attempt by RMAC to convert low- | scribe, he said, “Oh, maybe we can fix Suite 110 
er case ‘a’ to ‘z’ to upper case. Since | it ina year, but don’t count on it.” Atlanta, GA 30339 = BBJ 
this statement is used frequently by the In summary, Manx is a relatively 
Boschi beg Sept eee Bre ese ys SIR ay Da ON OO ee ee 
Letters 
Listing One 
* The function char *findstr(is, cf) returns a pointer to the first 

occurence of string pointed to by is in that pointed to by cf. 

In the default case, IS is terminated by a 0 byte 

and CF is terminated by CPM’s end of file 26 (%*@). 

To change these defaults, the calling program must 

define the constants EOS (end of string for is) and 

EOF (end of file for cf). 
*/ 


#ifndef EOS 
#define EOS 0O 
#endif 

#ifndef EOF 
#define EOF 26 
#endif 


LRKKKREKKKRKEKKKKEKSE / 


char *findstr(is, cf) 
Char *is, xcf; 
{ 
#asm 
POP B 
POP D 
POP H 
7 
PUSH H 
PUSH D 
PUSH B 
; 
10 


;Return address 
;Character file -cf 
;Index string - is 


;Restore the stack for caller 
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SEARCH: 
SEARCHi: 


FAIL: 


i 
INDEX: 


INDEX: 


“=e 


SUCCESS: 


DONE: 
#endasm’ 
@ 


Listing Two 


HOG 


Hood §o 
Ooo, o8 8d 
Hos ig 


DOOR OD of 
f2 20 
20) OE 
65 79 
&9 oF 
20 72 
Ai 74 
DOA Ob OF 
6F 20 
&F 6 
74 20 
20 74 


&9 74 


[ 


eo ; 


7 il 
6 


= 
f 


Fay 


74 


2 4 
28 2? 
AF 20 
29 34 


Af if 
AE 2 
2 48 4€ 


bi 2 


sire afiise 


bat mad Bact mst Ba od 


Se I bo ed 


LDAX 


LDAX 


JMP 


POP 
RET 


POP 
POP 
POP 
XCHG 


2 
} 


am rer) “at ces we 
t 


EOF 
SEARCH1 
D,0000 
DONE 


orto 


UCCESS 


NDEX1 


LCHZOMES YP x 


Dox 


PAGE 
TYTLE 
COMMENT 
PRGE 


Request 


SEGMENT 
ROSUME 


SPCHAR D8 


RUF 


XPRMTi DR 


XPRMT2 DR 
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;*ACF to A 

;*CF == IS([O0] ? 

;Iif yes call (check rest of IS) 
;No match ++CF 

;Check for end of CF 


;Loop if not 

;Search failed. Load error message. 
;And go back to caller 

;oave registers 
;Next character. We know the last one matched 


;Check for end of IS 


;If found match is complete. 
;Not yet 


;This character matched. Loop for next. 
;No match. Restore registers 


;in preparation for 
;return to search of CF for match of IS[0] 


;Restore pointer to first position of IS in CF 
;Pop call from search. Now will ret to caller 
;Pointer into HL for return. 


End Listing One 


5432 
COORDR - fiskette contents list - Redefine Order 
és # Added PROC - Feb 1984 + 


file extension entries which are to be sorted to the beginning of the list 


PARA PUBLIC *CODE’ 


CS:CODE, OS: CODE 


RELOCI BYTE 


80H » Ordering character 


a.i > Input buffer for extension 


8 DUP (7) 


13,10, Enter file name extension te relocates’ 


13,10,’ to top of list ("\" to quith: §? 


(Continued on next page) 
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Letters (Listing continued, text begins on page 8) 


Listing Two 


HOS! GETORD 
HO5?7 BR Addd 
HOSA BF O00 E 
G05) BA OOOR LOOGP: 
NOs #4 09 
Na? CD 2) 
064 BA 0033 
O67 #4 09 
O69 CD 21 
O06H kA O00] F 
HOSE 84 OF 
Ho70 CD Zi 
O72 80 S H004 & Al 
ory 7 
go7? gf iE HOO? R 
HO7D 90 FRO? 
HOGG 7F 13 
O82 32 F 
0084 8h CR 
NO86 83 £9 93 
G089 F?7 DF 
QOGR GF 
OBC 8D RF OO0S F 
Hh9d bo FO 
N92 FA/ AR 
O094 OF 
oggs 89 O03 STOR: 
098 HE o003 F 
MOR FSf Ad 
Hoo Ad a000 F 
qand AR 
OOAL FE 04 0000 R 
GoAas 45 
086 83 FD OR 
GORI 70 B2 
OO8R (4 02 0 BUTT: 
OOAE C4 G4 GO00 R 8A 
OOBS C3 
Hong GETORD 
HORS CODE 

’ 
Seqments and groups: 

Name 
Ree ee oye ier ge gt ake Mita Via eae 
aymhals 
ham 6 

URE os eae cog eras eae oe 
EUG e ae ei eS Be cei tens aoe 
Be ele hot Stine ye a, tae ee 
ee ANG Saou Pa ae ee cx tem ee ee 
PR a ee a 1 eee ah ee eee ee 
BR gta! ta We oo ee eee pe 
SL SAL, ae ee Na a p< yea 
Aah oy Naren Ra PRE tes eis 


RRM pete Wine eae ata eh eke 


Warning Severe 
are 


Errors Erra 
i) i} 
12 


PUBLIC 
PROC 
NOV 
MOY 
MOY 
OY 
INT 
NOV 
MOY 
INT 
MOY 
HOY 
INT 


NEG 
PUSH 
LEA 
HOY 
REP 
POP 
NOV 
ROY 
REP 
NOY 
STOS8 
INC 
TNC 
CHP 
JL 
MOV 
MOV 
RET 
ENDP 


ENDS 
END 


Type 


PROC 
NEAR 
NEAR 
BYTE 
RYTE 
NEAR 
BYTE 
RYTE 
BYTE 


wpe 


oJ 
sere 


CPi AS 


GETORD 

NEAR 

BP, 0 

BI,QFFSET RELOC 
DY,QFFSET YPRMT! 
AH,9 

at 


AH. 


DX, QFFSE? BUF 
AH OH 

24H 

FRUFE2, SCH 
BUTT 

BL, YBUF+! 
BL, 2 

STOR 

RH, BH 

CX, BE 

GY,3 

cy 

fil 

ht, XHUPEBA +2] 
aL 

STOSE 

DI 

i ae 

I, QFFSET YRUF +2 
MOY SE 

AL, SPCHAR 


SPCHAR 

BP 

BP, 10 

LOOP 

RYTE PTR (D11,0 
SPCHAR, 90H 


ft 
Domeeed 
ews 
Ww 
wat 


PARA PUBLIC 
Value  &Attr 
O05? CODE 
HoSD CORE 
Hoa COHE 
TY CODE 
O00 COBE 
Hogs CODE 
HOO CODE 
OO08 CORE 
HAR CODE 


combine class 


—-—- 


ek een ae | 


an 


ae 


| 


External 


Counter af entries 


Frompt for extension 


Bet extension 
Check for dane {\) 


fet length 


(3 - length of string) 


Points ta char just after string 


> Fill with blank 


to 3 characters 


Extension from buffer to list 
Bdd ‘ordering’ character 
Count entry 


Cycle if 9 or fewer entries 


: Terginator to end-of-list 


Reset ordering character 


Length =002D 


End Listing Two 
(Listing Three begins on page 14) 
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fo PORN ENG 
The first conapiler for dBASE II 





LOUMPILER’ 









WordTec piler for 


INDEPENDENCE 


NOwaveliketehysslre compiled, efficient xeueittriayslikoccetite 


independently of dBASE II, an 

















You only buy dB Compiler™ once. You may compile as Many 
applications as you wish, FOREVER, with no additional fees. 


SPEED 


Application programs are compiled into low level code and only 
include program functions that are absolutely necessary. 


SECURITY 


Compilation is far better than encryption for protecting your 
programming insights and procedures. 


PORTABILITY 


Using dB Compiler’s cross-linkers you can use one development 
system to generate code for various target environments. ° 

















Suggested retail price: $750; additional target modules: $350 


Special Offer: Compiler and an additional target module: $750 
Offer expires 7/15/84. Corp/ multi-user licenses available. 


dBcowepi er” 


WORDTECH SYSTEMS P.O. Box 1747, Orinda, CA94563 (415) 254-0900 


: dBASE II, RunTime® Ashton-Tate 


(Gil ge (= ale Ml 0 Akela c=¥-(0(-] atcy=\ als (el-wer-] a6 be 





Letters (Listing continued, text begins on page 8) 
Listing Three 


Hood 


Hg 


HOO5 
Ho? 
OO08 


HOLS 


HO2E 
OO2E 
O03] 
NOS 
H036 
O038 
O038 
QORE 
0040 
0045 
0048 
0048 
OO4F 
Hos} 
O056 
0058 
OO5C 
QOSE 
NO43 
O06 
0067 
069 
H06C 
NOSE 
0070 
OO72 
0074 
O77 
g074 
0070 
QO7F 
HO8s 
0082 
HdR4 
O08? 
08K 
)090 
0092 
0094 
0096 
0097 


H097 
0097 
HO09C 
HOFE 
OO9F 
OORS 


14 


oA [ 
fi} 


] 


FF 60 00 00 00 00 

af 

O05 SF SF SF OSFo oF 

OF SECOE or or. oF 
18 [ 


29 


BF O00 E 

a3 C6 

RF 078 

F2/ AB 

AR 0000 E 

BF O000 E 

43 C9 

BA 1003 & 

C6 $6 0009 R 02 

19 

Cé O6 0009 R 04 
R {2 

C6 06 0009 R O68 

FR OB 

88 OE 0000 R 

30 GF 

C4 06 O009 R OO 
H4 {1 

CD 2! 

ER 0/7 

RA 0003 R 


FQ 0097 
Ah Ogg? f 
RE 0093 
aA 04 


=o =a 


ES 

At 3E 0009 FR 00 

74 O8 

AO 3E 0009 R O4 
RG 


74 BD 
IT 2 


B0 3E 0009 R 00 
73 40 

ai 

89 OF 


83 C3 02 


CODE 


HIDNFL 


EXTND 
ATRB 


SCAN 


SY6: 
TEN: 
FIL: 


MAIN: 
LOOP: 


INNER: 


DONE: 


ALLFL: 
SCAN 


SAVE 


PAGE 
TITLE 


COMMENT 


PABE 


SEGNENT 
ASSUME 


EXTRN 


PUBLIC 
DE 


DE 
DE 


PUBLIC 
PROC 
MOY 
YOK 
HOV 
REP 
MOY 
MOY 
YOR 


baz 
COSCAN - fiskette contents list - Scan Directory 
t Version 1.0 - June 1983 
Modified Jan 1984 # 
§2 


PARA PUBLIC *CODE* 
CS:CODE, DS: CODE 


RELOC: BYTE, PNTR: WORD, SRCESRYTE 


HIDNFL 

3 DUP ff) ; Working buffer for hidden file count 
OFFH,0,0,0,0,0 ; Dummy FCR for file find (extended) 
() ; File attribute nee 

(P2222 I772 ; Dummy FCB for file find (normal) 
24 DUP {?) 

SCAN 

NEAR 

BY, OFFSET PNTR 

AX, AX 

CX, 120 

STOSW ; Clear pointer table 


ae 


RY, OFFSET PNTR 
DI,OFFSET SRCE 


cx, Cx 
DY,OFFSET EXTND 


RY ta pointer list 
DI to file name stack 


—-a- 


Search FCB 


we 


ATRB,2 ; Set for hidden files 
SHORT MAIN 

RTRE, 4 ; Set for system files 
SHORT MAIN 

ATRE,& ; Set for IBMRIQ, IRMDOQS,... 
SHORT MAIN 

HIDNFL, CL ; Save hidden file count 
CX, Ch 


& 
— 
= 
nm 
-_ 
— 


; Set for regular files 


Get first search entry 


—- 


SHORT INNER 
DY, OFFSET EXTND 


H, 12H 
ZiH ; Get next entry 
AL, AL 
DONE 
SAVE ; File name to stack 
AL, ATRE ; Fetch attribute of search 
$1, 93H ; Point to DTA attribute field 
AL, BYTE PTR ($1) 
LOOP : Don’t count if not requested type 
CX ; Count entries 
LOOP 
ATRB, 4 : If zerc, all file types checked 
ALLFL 
ATRE, 4 ; 
S¥5 ; =2, next to system 
TEM > =4, next to IBM... 
FIL » =6, next to regular 
; Returns count in CY 
NEAR 
ATRE, a 
ie ; Hidden file count, no nage Save 
WORD PTR CBXI,D! ; Save pointer to entry stack 
BX, 2 ; and step pointer table 
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N0AS FF: PUSH 
OOAS 47 INC 
OOAG BE 0088 MOY 
Noa? BF 0008 HOY 
HoaC A O4 SYLP: MOV 
OOHE SC 20 CMP 
OORG 74 Os i? 
OOH? 88 O05 MOV 
ooh4 44 INC 
OOH 4? INC 
OOH& E? F4 LOOP 
OOH BE O09d NMONE: MOV 
QOHR ER 2? 90 UMP 
(ORE 80 30 20 STOTYP: CMP 
OOCL 74 09 7 
QOC3 (46 05 2E AD 
OCS 47 INC 
HOC? BY oogs MOY 
OOCR FR! Aa REP 
HOLE C4 O& Od ALLONE: Mi 
OCF 47 INC 
HOD BE oad MOY 
HORS BF O004 MOY 
O06 Fas A4 REF 
oped a POP 
HOH Fh POP 
OODA 88 44 00 MOY 
OODD 89 POP 
OODE C3 PASS: RET 
NODF 87 TESTRE: PUSH 
OORO HO Aa May 
MOE? HF O000 E MOY 
QOES 8G 3D od TLP: CMP 
QOE8 74 13 JE 
QOOEA SF PUSH 
HOFER 84 PLUSH 
HOE BF 0003 MOY 
QOEF FA/ Aé REPE 
OOF - SE POP 
HOF2 SF PfiP 
HOFR 74 08 JE 
OOFS 83 C7 04 ADD 
HOF8 ER EB UMP 
OOFA 8A 46 03 MATCH: MOY 
OOF D SF NOMTCH: POP 
QOFE 50 PUSH 
OOFF EB 8D JMP 
} 
Gigi SAVE ENDP 
} 
O10} CODE ENDS 
END 
Segments and groups: 
Name Size 
Oe gg as ee a ee OL) 
Symbols; 
Name Type 
BoC Ne, i ua Bee A Gee ee od L NEAR 
WC eile plea at ee L NEAR 
Be ht ae ig yr Ee a L RYTE 
Ra a eee ig Sy putes & , iL NEAR 
eae eS gs cee a. gol ire ae, L BYTE 
eg te a yb ad a ee 8 L NEAR 
RNa egy ae ae aly L RYTE 
eee irs Oe Ge es L NEAR 
oS DERAS Of Gene ae ale ee So rename vers L NEAR 
eee ae yee a a a a L NEAR 
Oe Ss Sa ee L NEAR 
Meee e ee Peg ge L HEAR 
BN A ns ip ty eg eg L NEAR 
sagt a ge ea eg L NEAR 
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DY 

DI 

51, dH 

cy, 8 

AL, BYTE PTR [$1] 
Als? 3 

NMDNE 

oe PTR [D1],4L 
fy 

S¥LP 

5], 70H 

TESTRE 

RYTE PTR £S73,’ 


ALLDNE 
DI PIR Tay 


ee 

HOUSE 

BYTE PTR (D11,a 
fi 


ST, 0AdH 
cy,4 
MOVSE 
AY 


BP 
CRP] ,AL 
cy 


I 

AL, OAQH 

DT, OFFSET RELOC 
AYTE PTR [D1],0 


NOMTCH 

iy 

SI 

Uke 

CMPSE 

SI 

DY 

MATCH 

DI,4 

TLP 

AL, {DI+3] 
DI 

Ax 
STOTYF 

alian combine class 
PARRA = PUBLIC 6° CODE’ 
Value Attr 

oOCC CODE 

0096 CODE 

O00? CODE 

oo84 CODE 

0003 CODE 

0058 CODE 

o000 CODE Global 
O05) CODE 

070 CODE 

0697 CODE 

043 CODE 

OOFA CODE 

OBB CODE 


HOF D CODE 


~ we OS wee 


a me tet 


we 


ae 


Save address for ordering character 
Step to start of name 
Point ta OTA file name 


End of name 


Point to DTA type field 
Check if relocation requested 


No file type 


Move type field to stack 


; Mark end of string 


——- 


etm Om et oe 


—-7 ——. 


“ee ee 


we 


Oe et 


Point to file size 
and save in stack 
‘Ordering’ character 


Location for same (PUSH from DJ) 
Put at start of string 


Default order high 
End of reorder table 


Save start of string in table 
and FCR location pointer 


File extension ta table 


Point to next entry 


Reorder character to AL 
Restore to value at entry 
Reorder char ta stack 


Length =0003 


(Continued on next page) 
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ONRARVAULUs sl 
PERFORMASEE 

anc] PORTABILITY 

in ah ISAM PA\6GuhVAGls 
ac an UNBEATABLE 
PPLRUGLe 


c-tree™ 
BY FAIRCOM 


2606 Johnson Drive 
Columbia MO 65203 





Circle no. 22 on reader service card. 


RS-232 PROMPRO-8“ 
STAND-ALONE, 

\ INTELLIGENT, EASY TO US 

\Program & Verify ALL 5V 25 & 27 


eries EPROMS & ALL Micros: 
/41/42/51/55®68701,68705,38E70| (ea 












8748/ 




























HIGH™ . | . 
THROUGHPUT FIFTH GENERATION * 128 K RAM 
GANG PROGRAMMING Buffer (64 K, STD) 
EPROM PROGRAMMERS # EPROM Simulation 


4 8, 12, 24, EPROMS at atime FROM 
UV amuse ser Mele to Vala ila al fom * Bownload/Upload Hex Files 
> 1. 800-EE 1. chat PROMPRO-7™ $489 


| ‘\ * 32K RAM 
}-9'7 4-09€ 


' B uffer 
7 Each p ae dropped the price ts 000 | 
/ PROMPRO-8 Equivalent Price 5 Years | ago: $5689 


























PRICES S y ‘ 
aga, | —_/ PRICE TODAY: $689! \ PAL : 
$49.95 . 14DAYMONEYBACK \ PROGRAMMERS 











a GUARANTEE \. PALPRO-1™$_599 
ERASE 30 EPRO ge aif | \. PALPRO-2™ $1195 
. 





- 

wt y 
oo A ; N 
f Circle no. 34 on reader service card. 
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Letters (Listing continued, text begins on page 8) 


Listing Three 


J CEI vee Seibel ects, See 
YT ac Sai ae a te MAR USL Ger date pe 


Oe ee eS, A ee ec i Si J 
SB Rae SE BSS: Bes, a OU! 
el dc, ait Ae en TU a ey a ee er ae er 


1 i MO ey A Lie i cae a Sn co ar | 
e £ ’ a a S40 Bae IS ES Ba Ew NG 


SST ee PR See Se ae es Ke ig 


Warning Severe 
Errors Errors 
f} i 


Listing Four 


AO CODE 
} 

; 

PSY 
RESTR 
DRLUF 


hood 
OO] 
Hogs 


fit} 
oc OG 
a7 { 

{}} 


] 


64 45 4€ 
&€ 45 73 


43 69 
20 44 
20 20 
OO19 20 20 
Ooic 
0O?70 
023 
0026 


h4 
69 
ii} 
fh) 
a) 20 
20 20 7C 
Op 34 30 
OG 


OOK HIDF 


DBL. 
LFTE 
RGTR 
CRLF 
RENT 


} 


PRINT 


OO 


Hg?? 
0027 
0028 
Gg3g 
Q033 
O03 
Q037 
O039 
OORR 
O03D 
MORE 
OO3F 
042 
045 
0048 
HO4K 
OOdE 
O05! 
HOS4 
087 
HOSA 


06 00276 R 71 
Hood £ 


SETCNT: 
EQ O14D R 

EG O13E R 

FS o18C F 

RA O000 £ 

Ea O0AS R 

BY O04 

ER G14E RP 

FS 145 F 

Eg OL3E R 


ai 
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L NEAR 
¥ WORD 
¥ BYTE 
N PROC 
N PROC 
¥ BYTE 
L NEAR 
L NEAR 
L NEAR 
L NEAR 
L NEAR 


PAGE 
TITLE 
COMMENT 


PAGE 


SEGMENT 
ASSUME 


EXTRA 
EXTRN 


PUBLIC 
DE 
DR 
DR 


PURLIC 
PROC 
INC 
MOY 
May 
May 
Ory 
OR 
ii 
INC 
CEH 
PUSH 
CALL 
CALL 
CALL 
MOY 
CALL 
MOY 
CALL 
CALL 
CALL 
POP 


OODE CODE 

Hood COE Eyternal 

NOG CODE External 

097 COBE Length =0068 

NOPE CODE Global Length =0069 

DO) CODE External 

HORE CODE 

OAc CODE 

0048 COBE 

OODF CODE 

QOeS CODE 

End Listing Three 
ikZ 
COPRNT - Diskette contents list - Print Cover Sheet 
* Version 1.0 - June 1983 
Modified Jan 1984 + 

82 
PARA PUBLIC ° CODE’ 


CO:CODE, DSI CODE 


PNTROWORD, STRCNT:WORD, TITLY:BYTE, HIDNFLI BYTE 
CONVERTS NEAR, DECHAL: NEAR 


PSY, RESTR 
{} 
12,4 


7 DUP (0) 


"Hidden files 


3 fae: 


13,10,0 
t} 


. . 


PRINT 
NEAR 

Psy 
BENT, 33 
AY STECNT 
DH, 

DH 

AH, AH 
SETCNT 

AL 


Ax 

DORRDR 

DORLNE 

DOLF TS 

DX. QFFSET TITLi 
DOPRT 


Pass counter 
Printer ‘restore’ forms 
Work buffer for file size 


i 


Double blank between columns 
Left border 
Right border (include CR/LF) 


ae ne 


—“e 


Kody line counter 


Count number of prints 
Set sel line counter 
Load entry count 


ee em fe 


Divide by number of columns 


me 


Evenly divisible 
Ragged edge 


oe 


“tes 


Entries per column count 
De upper border 

and a blank line 
Do left sargin 


Qutput the title line 


ee ee 2 ee | 


we 


oe ee te 


Add 4 ppaee? . 
; Do right @argin . 

> and another blank line 

(Continued on page 18) 
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Letters (Listing continued, text begins on page 8) 


Listing Four 


GR £4 

DL €S 
HOSF BE Good E 
M06? EB O1St R 
0065 B? 94 
0067 33 D8 
0069 E89 OOR9 F 
O046C O43 BD 
NOSE FE CA 
0070 75 F? 
072? £8 O145 F 
O75 B83 Ch 02 
079 FE OE 0026 R 
O70 E? £4 
QO7E 32 (0 
O08 OA 04 GOON E 
H084 74 98 
OBS £8 0108 R 
HOB 8 7E OO74 R 2 
QOBE BA OE 0026 R 
OO92: 42040 
0094 £3 05 
0096 ER OSE R PILL: 
Oo99 2? FR 
H09R ES g140 & NOFILL: 
OOFE BA 0001 F 
OAL £8 OGAS RF 
Hong Ca 

Hoss 


0G 


OSD 


GELS 


INLP: 


BLN: 


PRINT 
} 
DORS DOPRT 
OAS a2 

H0R4 26 

DOR? 
HOR? B4 Oo 
QORR BA 14 
GOAD OF D2 
OOAF 74 00 
OORL CD 2 
DOORS 46 
GOB4 ER FS 
OOS oo 
OOR7 3 
Oona CS 
OORF 


DPLF: 


PRIEND: 


DOPRT 
HORY PRTENT 
ORF 5 

DORA 82 

OORR 89 HOO 

QOHE BR 3a 

GOCO OB FF 

HOCZ 74 37 

HOC4 47 

GOCE 84 G5 

O07 
HOC9 Of D2 
HOCR 74 3é 
OOCD CD 21 
QOCF 47 

HOM) EF FS 
OOH? BF O00] 
HORS £8 G14E F 
gongs 47 

HOF Qh 35 
OODR 88 55 a? 
HORE 54 

QODF BF 0003 & 
MOE? EB 0000 E 
OOES § 

NOES BA OOS R 
OOE9 £8 0085 R 
BOED 56 
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PELE: 


BACK: 


BQNE: 


CALL 
MOY 
CALL 
RET 
ENDP 


PUBLIC 
PROE 
PUSH 
PUSH 
MOY 


ENDP 


PROC 
PUSH 
PUSH 
MOY 
HOY 
OR 
di 
INC 
MOY 


RP, CY 
BP 
ST,OFFSET PNTR 
DOLFTN 
DL, 4 
RY, BY 
PRTENT 
BY, BP 
DL 
INLP 
DORGTH 


S1,? 
RENT 
OTLP 
AL, AL 

AL HIDNFL 
BLANK 


FILL 

DORRDR 

DY, QFFSET RESTR 
DEPRT 


DOPRT 

NEAR 

by 

SI 

ST, DX 

AH, 5 

DL|BYTE PTR [$1] 
DL, DL 

PRTEND 

7H 

SI 
DPLP 
cI 
Dy 


NEAR 
Ci 
Dy 


Cx,12 
BT WORD PTR (SI+BY) 


gu 
DL,BYTE PTR [DI] 
DLL 
BLNK? 
“1H 
i 
PELP 
Cy, ! 
CLER 
DI 
AY,WORD PTR [DI] 
DY, WORD PTR [DI+2] 


DI,OFFSET DBUF 
CONYRT 


5] 

DY, QFFSET BBUF 
DOPRT 

DY 


oe tet ee ee 2 2) 


wo OF eh te 00 OD ee oe ‘ont 


ee ee ee! 


wat a8 


ae 


‘eo 


a 


8 


ee 


—-—. 


——e eo] we ee 


ot me ee 


an 


ae 


ae oe 


Offset per column in pointer list 
Point to start of pointer list 

Do a left margin 

Set inner loop count to coluan # 
Clear coluan offset reg 


; Print stack entry 


Step to next coluan entry 

End cf inner loop 

fo a right sargin 

Step ta next pointer 

Decrement body line count 

End of cuter loop 

Check for any hidden files 

ic 

Print hidden files count, 
uses two lines 

load regaining body lines 


Ali used 
Fill out body lines 


fo bottos border 


Restore page 


This subroutine prints string 
_ipointer in DX on entry). 
String terminated by a null byte 


Print line function 


DI points to stack entry 
Tf entry is zero, blank space 


Step over reorder character 


Print to the end of the 
name/type entry 
blank rest of 12 chars 


Insert i Space 


Load file size 


Size ta ASCII 
Print the size 
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QOOED 52 

OOEE FE CA 
OOFQ 74 06 
OOFZ BA O09 F 
OOFS EB OORS R 
HOF SA 

GQOF9 34 

OOFA C3 

OOFR BF O13 
QOFE 
Hidi ER E9 
O10 
106 ER CA 
O18 


O106 

O108 €8 G13 R 

Gi0R ER OLaC FR 

O1OE BF goL4 

O11] £8 O1s— R 

O114 BA 00a R 

O117 £8 QGA5 F 

Nin Ao gg00 E 

NiiD BF O000 E 

O120 QB 0? 

O12? EB hood E 

Q125 80 SE G00 E Fa 
H126 75 05 

O120 Cé G4 0000 E 20 
OLS) ER oGA5 8 

O144 89 OO2E 

O137 €8 GIiSE R 

O13A £8 0165 F 

0130 3 

OLSE 


Q13E 

oo See 

OL3F ER OLSC F 
Old? 89 0082 
O14 Es O14E & 
Dl4d £8 O145 & 


O14 35 
O14C C3 
ofan 
O140 


M4h BF 9058 
O150 82 20 
ia2 ER aia 
Oia BA O03 
Ofna ER ORS 
O58 C3 

Oot 


OLaC 


Ural 32 


AN ca 


Hi BA OOIC & 
Q160 EA OOAS R 
NL63 SA 

at64 C3 

N16 

DLAs 


Olba GZ 

O16 HA 0020 R 
O169 £8 OOAS R 
OL40 38 

Hiab C3 

OLE 


OL4E 

Qi4— Be 20 
O170 B49 gs 
0172 CH 21 
0174 E? FC 
Offs: 03 
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PUNT: 
BLNEL: 


BLNK?: 
PRTENT 
PRHID 


PRHIE 
DOBLNE 


DOBLNE 
DOBRDR 


DORRDR 
DOLETS 


DOLETM 
DORSTM 


DORGTH 
} 
CLER 


DLFIL: 
CLRLP: 


JMP 
ENDP 
PROC 
CALL 
CALL 
MOY 
CALL 
MOY 
CALL 
MOY 
NOY 


MOY 
CALL 
MOY 
CALL 
CALL 
RET 
ENDP 


PROC 
PUSH 
CALL 
MOY 
CALL 
CALL 
POP 
RET 
ENDP 


FROC 
MOV 
mOY 
CALL 
MOY 
CALL 
ET 
ENDP 
PROC 
PUSH 
MOY 
CALL 
POP 
RET 
ENDP 


PROC 
PUSH 
HOY 
CALL 
POP 
RET 
ENDP 


PROL 
MOV 
MOY 
INT 
LOOP 
RET 


DY 
DL 


PUNT 
DY, OFFSET DBLE 
DOPRT 


Dy 
Cx 


Cx,19 
CLER 
GONE 
CLER 
BACK 


NEAR 

DOBLNE 

DOLFTM 

Cx, 20 

CLER 

DY OFFSET HIDF 
DOPRT 


AL, HIDNEL 
DI,OFFSET HIDNFL 
DY, 0] 


DECHAL 
HIDNFL, 70° 
THOCH 
HIDNFL,? ° 
BOPRT 
CX, 44 
CLER 
DORGTH 


NEAR 
i 


DOLF TH 
CYB? 
CLER 
DORGTH 
Ci 


NEAR 

Ct, a8 

he,?-? 

DLFIL 

DY, GFFSET CRLF 
DOPRT 


NEAR 

DY 

DX, GFFSET LFTB 
DOPRT 

py 


NEAR 
DY 

DX, OFFSET RETR 
DOPRT 

DY 


NEAR 
DL,’ 3 
AH. 
21H 
CLRLP 


a2 


os 


—as 


——. 


—— 


—a © 


oot ct oe 


— 


en oe 


—. 


a nee 


“a. 


oe 


“ae 


ae 


a. 


Reload entry value 

Tf last colugn don’t space over 
Print 2 blanks between cols 

Nc entry, Blank entire coluan 
Blank regainder af field 

Riank line 


Left margin 
Twenty bianks 


Text 


Set address for print (below) 
Nuaber of files to ASCII 


ferc suppress 


Fill with blanks 
Right gargin 


Qutput 2 bordered blank line 


Qutput a top or bottom border 


~ 
-— 
4 


futput °: 


# ik 


Qutput 


Gutput C% blanks 


Qutput DL character CX times 


(Continued on next page) 
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Letters (Listing continued, text begins on page 8) 


Listing Four 


O17? CLER 


CODE 


t 


O17] 


Segments and groups: 
Noa & & 


(ey day Tees ea es Cee es Jy Ws ee, ch I ibe 


a ae ee eee eR ee | 


8. 40 oe 8 By ER et te ae Sat Fe LR IN 


5.8 > “So eee se 88 8 VEY) 8, Le, Tae oe 


a) TR eS, eS EN -Be RE S.A  E R SRe 


LP a oe ES a Sellied e! e ea | 
io ee a ee, ee AAs 


ete! ie ee ae oe (os et i ee Zila, Se 
eye er EE ee) ON a ES a ee eae 


ee i 2h a i i ce Se cn ce A oe Pe 
a oF a Oh AR OE Be Ce Ce Re 
e798 (2). .8. 8 
woe. ee Se a FS See ee a BS 
SO Oia Eo -6l ph Sh Bee Bare 
Bf ere ee Os Ve ek RY ae ee 


PRS Oe ee ee Oe 


yA YEAS SAEy Ie a Py Lee Re AO My ee tia oe 
a ie Re Re Fey ee On OR eke Ry Ry ee 


. 


BO es Ee Re A a BE OS OR Ee a OR Ae 
eR oe Be ee RS ee ABD eB Oe 


2s hE. EN Se: ae oe eee 


Warning Severe 
Errors Errors 


i} i} 
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ENDP 
ENDS 
END 


L NEAR 
L BYTE 
L HEAR 
L NEAR 
L NEAR 
N PROC 
L NEAR 
L NEAR 
BUTE 
L BYTE 
L BYTE 
L NEAR 
L NEAR 
N PROC 
N PROC 
N PROC 
N PROL 
N PROC 
L NEAR 
L NEAR 
L NEAR 
L BYTE 
V BYTE 
L NEAR 
L BYTE 
L NEAR 
L NEAR 
L HEAR 
¥ WORD 
N PROC 
N PROC 
L NEAR 
N PRO 
L BYTE 
L NEAR 
L BYTE 
LSite 
L NEAR 
¥ WORD 
4 BYTE 
L HEAR 


align 


PARA 


Value 


hop? 
028 
OOBE 
fOFR 
H{OS 
OL4E 
O72 
HOOD 
0023 
vO19 
fis 
HHog 
0170 
OPE 
014) 
O1at 
NOAS 
OLA 
DOA 
G05 
NOEL 
HddG 
fie 
H049 
OO1C 
OOFR 
O02 
Hol? 
hod 
O1O8 
i277 
Hows 
ORF 
Ho 
OOFA 
HOg4 
iPh 
OSE 
Hog 
Hod 
O13i 


combine class 


PUBLIC 


* CODE’ 


Length 


=H009 


Eyternal 


Length =0007 
External 


Length 
Length 
Length 
Global 
Lenath 


=HO0F 
=O00F 
=)009 
Length =0014 


=Hig4 


External 


External 


Length 
Global 


=f054 


Length =007E 


Length =004F 


Global 


Global 


External 
External 


End Listing Four 
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Listing Five 


PAGE AR2 
TITLE CQENDP - Diskette contents list - Workarea Definitions 
COMMENT # Version 1.0 - June 1983 
Modified - Feb 1984 + 
PAGE 82 
N00 CODE SEGMENT PARA PUBLIC *CODE* 


ASSUME CSICODE, DS: CODE 
PUBLIC SRCE, PNTR, RELOC 


= 0000 RELOC FOU THIS BYTE ; File extension reorder list 
= 0029 PNTR = EQU RELOC+I0#4+1 > Pointer list 
= 0119 SRCE = EQU PNTIR+240 ; Start of entry stack 
0000 CODE ENDS 
END 

segments and groups: 

Name Size =s align «© combine class 
BEB he ag BSE ls Pa gig ag Dg Q000 PARA PUBLIC ‘CODE’ 
Syabals: 

Name Type Value &ttr 
on Ee ERYTE 0029 CODE Global 
oe ge eae a ERYTE 0000 CODE Global 
a cpp ee ge ey oo eh he ERYTE 0119 CODE Glchal 
Warning Severe 
Errors Errors 
i ii 

TRH PC-DOS MASTER DISKETTE Free: 7168 02/19/84 


BASIC. COM 4592 DISKCOPY.COM 2008 CALENDAR.BAS 3840 PIECHART.BAS 7304 
BASICA.COM 14768 EDLIN.COM 23972 CIRCLE. BAS 1664 SAMPLES.BAS 2432 
CHKDSK, COM 1720 FORMAT. COM S816 COQLORBAR.BAS 1534 SPACE. RAS $920 


COMMAND.COM 4959 MODE. COM 2009 COMM. BAS 4352 EXE2RIN.EXE 1280 
CORP. CON 1649 57S. CON 605 DONKEY. BAS 3084 LINK, EXE 4{956 
DEBUG, COM u999 «ART, BAS 1920 MORTGAGE. BAS 6272 
DISKCOMP.COM 1440 BALL. BAS 2048 MUSIC, BAS 8704 


Hidden files 2? 


End Listings 
Dr. Dobb’s Journal, August 1984 21 








DR. DOBB'S CLINIC 


by D.E. Cortesi, Resident Intern 


Transcendental Sources 


Some time back we published Richard 
Falk’s request for sources of good algo- 
rithms for the transcendental func- 
tions. Several people responded with 
suggestions, notably R. C. Briggs, 
Thomas Chrapkiewicz, Tom Enter- 
line, David Feign, Calvin L. Gardner, 
Glenn F. Roberts, and William A. Ru- 
tiser. Here are the titles they suggested 
that Falk read, with our comments on 
those we’ve used: 


Approximations For Digital Comput- 
ers, by Cecil Hastings, Jr., Princeton 
University Press, 1955. A very concise 
introduction to Chebyshev approxima- 
tion methods, plus seventy-odd ap- 
proximation formulae with graphs of 
their error functions. 


BASIC. Scientific Subroutines, Vol- 
umes I and II, by F. R. Ruckdeschel, 
McGraw-Hill, 1981. 


Computer Approximations, by John 
F. Hart, et al., Robert E. Krieger Pub- 
lishing Company, Krieger Drive, Mal- 
abar, FL 32950, 1968. Mentioned by 
two respondents. Rutiser sent a copy of 
the table of contents, which looks very 
complete. 


Handbook of Mathematical Func- 
tions, edited by Milton Abramowitz 
and Irene A. Stegun, National Bureau 
of Standards Applied Mathematics 
Series #55, U.S. Government Printing 
Office, Washington, DC 20402. 


Numbers In Theory and Practice, edit- 
ed by Blaise W. Liffick, Byte Books. A 
rather miscellaneous collection of ear- 
ly BYTE articles, this is a useful intro- 
duction to floating-point arithmetic 
and to random number generation but 


not a complete or accurate source 
book. . 


Scientific Analysis on the Pocket Cal- 
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culator, by Jon M. Smith, John Wiley 
and Sons, 1975. A friendly introduc- 
tion to numerical analysis written for 
‘those who owned or operated a mod- 
ern electronic pocket or desk calcula- 
tor” just as the age of the personal 
computer was dawning. Many approx- 
imation formulae with tables of error 
functions. 


Software Manual for the Elementary 
Functions, by William J. Cody, Jr., 
and William Waite, Prentice-Hall, 
1980. The book most often cited by our 
respondents and the one that comes 
closest to being a true cookbook, this is 
the reference of choice for Falk and 
anyone else who wants to write math 
functions in assembly language. Six- 
teen transcendental functions are pre- 
sented as flowcharts for programs that 
can deal with float numbers at the bit 
or digit level; that is, at the level where 
the exponent and the fraction can be 
treated as separate integers. Where 
necessary, different algorithms are 
given for binary and decimal (BCD) 
methods. A great deal of attention is 


_ paid to accuracy. The function vocabu- 


lary is taken from Fortran, and some 
familiarity with that language is a help 
initially in getting into the book. 


Over-Submitting 


We’re longtime advocates of using the 
batch facilities of one’s operating sys- 
tem—-SUBMIT and XSUB in CP/M 
2.2, BAT files in MS-DOS, etc. Steve 
Grant of Hacienda Heights, CA, has 
the same bent, but he overloaded the 
XSUB facility of CP/M 2.2. Here’s 
what he says: 

‘““How do you do an XSUB file longer 
than 128 lines? Garden-variety SUB- 
MIT files are easy since the last line of 
one file can just SUBMIT the next one. 
But that won’t work with XSUB since 
the second SUBMIT command will be 
presented, not to the CCP, but to some 
innocent program that has never heard 


of the command line ‘submit foo.’ 

‘IT got into this mess while trying to 
make my machine an Adventure 
Grandmaster. I carefully created a file 
as follows: 


xsub | 

adv (start the 
program) 
(lots and lots of commands 
to move around the cave, 
etc. ) 


Adventure 


I named it TROLL.SUB and did a SUB- 
MIT TROLL. 

“Disaster! It started executing well 
past the beginning without ever exe- 
cuting ADV. The CCP was thoroughly 
confused by the command GET SPICE. 
Upon closer examination it became 
clear the TROLL would always start 
executing 128 lines from the end. I 
threw out all but the first 128 lines. 
Now the program plays the first 126 
moves just fine then stops and waits for 
human activity. Any ideas?” 

Unfortunately, no. The problem lies 
in the peculiar format into which SUB- 
MIT processes a submitted file and in 
the system’s belief that a processed file 
won’t exceed one logical extent of 16K 
(128 times 128). We could suggest 
that Steve convert to CP/M Plus or to 
MS-DOS version 2, both of which allow 
console input to be redirected to an 
ASCII file of any length, but we doubt 
that he’d find that constructive. 

Or maybe he could find a way to 
make the Adventure program take 
multiple commands in one physical 


line? Reader suggestions are 
welcome.... 

An Old Bug 

Frequent correspondent David 


McLanahan got bit by an old bug. In 
fact, it’s so old, and has been so faith- 
fully transported to system after sys- 
tem, it might be useful to print his 
warning. 
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“T’ve created a number of .BAS files 
with lower-case names from MBASIC. 
They are a big bother; the directory 
lists them, but CP/M can’t find, erase, 
or rename them. [ You can use BASIC’s 
KILL command to delete them.— 
DEC] A friend was over the other day 
and saved a program to disk in ASCII 
form. My friend meant to enter 


SAVE “PROG”,A 
but by accident typed it as 
SAVE “PROG,A 


The final quote is optional—when 
nothing follows the filename! The file 
was created as “PROG,A.BAS” and not 
in ASCII form. From there it got into 
MAST.CAT. As you undoubtedly 
know, the catalog programs use com- 
mas as the delimiters between entries, 
thus the catalog got out of sync and 
blew 20K worth of listings! Mutter, 
mutter ..°. 7°? 

Do the newer Microsoft BASICs do 
this? Somebody check for us on a PC 
with DOS 2.1 and on a Macintosh, 
please. 

[Editor’s Note: Upon reading this, 
we decided to try this ourselves on the 
IBM PC here in our office. Mr. 
McLanahan’s problem has apparently 
been fixed on our BASICA for PC DOS 
2.1. When we typed SAVE “PROG,A 
and hit return our request was refused 
and we received a somewhat cryptic 
“too many files’ message. This, inci- 
dentally, is the same message we re- 
ceive when asking BASICA to save a 
file with a filename containing over 10 
characters plus the .BAS extension. 
Anyone know why this message is gen- 
erated as opposed to one of the others 
that indicates a bad filename? — RW] 


BASIC Precision, Again 


Several readers were bothered by our 
recent discussions of BASIC single- 
and double-precision numbers and the 
ills they are heir to. Bill Metzenthen, 
David S. Tilton, William R. Hamblen, 
and David Feign all wrote to make es- 
sentially the same point: namely, that 
an understanding of how binary float 
numbers are represented is essential to 
an understanding of how errors are 
formed and propagated. Let Tilton tell 
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it, since he has a positive suggestion. 

“What most people do not realize is 
that, when they talk about floating- 
point numbers in a computer, it is a 
binary point and not a decimal point 
that is floating around inside the 
machine. 

“Everybody knows that there are 
some fractions that never come out 
even to any number of places. Thirds 
and sevenths, for example, cannot be 
expressed exactly as decimals. In the 
binary system even fewer fractions 
come out even. Usually these arise in 
money amounts where cents are ex- 
pressed in hundredths of dollars. The 
only hundredths that will come out 
even as binary fractions are .00, .25, 
.5O, and .75. All the others will have 
some small roundoff error no matter 
how many binary places (i.e., bits) are 
allotted to represent them. 

‘Fortunately there is a simple solu- 
tion to the problem: store money 
amounts internally as an integral num- 
ber of pennies. Not with the type inte- 
ger, which would limit you to a maxi- 
mum of $327.68. Single precision can 
devote 24 bits to an integer, and double 
precision can devote 56 bits. This is 
roughly equivalent to 7.2 and 16.8 dec- 
imal places, respectively. The only 
times you need to worry about round- 
off errors are when you multiply by 
100 on input and divide by 100 on 
output.” 

For the nit-pickers out there, we 
should qualify Tilton’s statement 
about the fractions that can or can’t be 
represented accurately. The fractions 
.00, .25, .50, and .75 are the only two- 


digit decimal ratios that can be repre- 
sented exactly in binary. If you divide 
a quarter by two, the result is a com- 
plete and accurate representation of 
0.125: twelve-and-a-half cents. 

His solution (carry currency 
amounts as integral numbers of pen- 
nies) and his point that you can use 
floating-point variables to contain 
large integral values are both useful 
suggestions. There are pitfalls here as 
well, however. For example, if you 
multiply an integral number of pennies 
by our local sales tax rate of 0.065, you 
will have a fractional part in your re- 
sult. The fraction represents not pen- 
nies but mills; nevertheless, it is subject 
to all the same problems of roundoff. 
Input can be a problem as well. Multi- 
plying an input amount by 100 isn’t 
sufficient; the input conversion routine 
might already have done some damage 
before you apply the scale factor. 


Public Opinion Poll 


Peter Baenziger of Kalamazoo, MI, 
takes us to task for the diatribe on poll- 
ing loops we tacked onto the May col- 
umn. Here’s his counter-blast. 

“You take Michael Barr to task for 
writing a polling loop checking the 
Caps Lock status on an IBM PC. You 
State, “This is an example of how a so- 
lution can go wrong when it is imple- 
mented at the wrong level of the sys- 
tem.’ You are probably right; it isn’t 
the right level. But I don’t think Barr 
and his loop are wrong. In my opinion, 
if the loop causes problems, it’s a 
weakness in the multitasking operating 


You KNOW, I NEARLY TRIPPED ON THIS SILLY THING! 
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Software 
Development 


PCDOS/MSDOS 


Complete C Compiler 
Full C per K&R 

e Inline 8087 or Assembler Floating 

Point, Auto Select of 8087 

Full 1Mb Addressing for Code or 

Data 

Transcendental Functions 

ROMable Code 

Register Variables 

Supports Inline Assembler Code 


MSDOS 1.1/2.0 
Library Support 


All functions from K&R 
All DOS 2.0 Functions 
Auto Select of 1.1 or 2.0 
Program Chaining Using Exec 
Environment Available to Main 








c-window'™ 


Symbolic Debugger 
Source Code Display 

e Variable Display & Alteration 
Using C Expressions 

e Automatic Commands 

e Multiple Breakpoints by Function 

& Line Number 


8088/8086 Assembler 

e FAST — Up to 4 times Faster than 
IBM Assembler 

e Standard Intel Mnemonics 

¢ Compatible with MSDOS Linker 

e Supports Full Memory Model 





8088 Software Development 


eS goo 


Includes: C Compiler/Library, 
c-window, and Assembler, plus 
Source Code for c-systems Print 
Utility 


c-systems 


P.O. Box 3253 
Fullerton, CA 92634 
714-637-5362 


Circle no. 15 on reader service card. 


24 


system. 

“Concurrent CP/M, for example, is 
sold for the IBM PC, and as such, sup- 
posedly supporting a specific comput- 
er, it should support the idiosyncracies, 
the strengths and weaknesses, of the 
hardware. 

‘‘We’re living in an imperfect world. 
The imperfect computers are out there 
by the hundreds of thousands. An ex- 
tremely small minority run Concur- 
rent CP/M or Windows, etc. It’s ludi- 
crous, In my opinion, that a vast 
majority of users, millions of people, 
should always have to take a first peck 
at the keyboard to find out what the 
Caps Lock status is just so that a rare 
multitasking) OS won’t get into 
trouble. 

“If the multitasking OS is properly 
designed, it will have saved the state of 
the machine, including the shift status, 
before relegating a task to the back- 
ground. When the task moves to the 
foreground, the OS should restore the 
old shift status in 40:17, the polling 
loop will get it, and all will be well. 

“Tet me reiterate: I agree with you 
that two LEDs would be preferable. Or 
if not LEDs, then a proper DOS call. I 
even agree that some polling loops are 
troublesome in a multitasking environ- 
ment. But the fact is, the two ideal so- 
lutions don’t exist. Complaining that 
they should doesn’t change reality. So 
I wouldn’t call a program that brings a 
solution for most users a ‘bad citizen.’ 
Maybe what we need is better 
government.” 

Well, it’s a thorny thicket of prob- 
lems, and Baenziger has done us all a 
favor by pointing that out. There are 
lots of angles to explore. An important 
one, as Baenziger says, 1s the fact that 
all those PCs and PC clones exist, and 
most of them run (and will continue to 
run) plain old MS-DOS versions 1.2 or 
2.0—single-task systems in which a 


polling loop won’t cause any harm at | 


all. Ditto for the near-million CP/M 
2.2 systems and the near-million Apple 
DOSes. 

Yet another angle is the culture 
from which the programmers come. 
On big systems, programmers tend to 
take the operating system interface as 
a given; they play by rules. People writ- 
ing applications for an IBM 370 
wouldn’t dream of writing a polling 
loop. They know that their programs 


will be sharing the machine with many 
others; that the system as a whole will 
run more efficiently if their programs 
go to sleep as quickly as possible when 
they have nothing to do; that the less 
CPU time they consume, the higher 
their programs’ priorities will become; 
and that every unnecessary machine 
cycle will be reflected in the user’s 
timesharing bill. 

None of these things are part of the 
gestalt knowledge associated with per- 
sonal computers. Multitasking con- 
cepts just aren’t in the vocabulary of 
the average grass-roots programmer. 

Had IBM foreseen the coming of 
multitasking to the PC, they could 
have done something about that. For 
instance, they could have added a level 
of indirection to all those low-storage 
values (i.e., “For keyboard status, poll 
the byte whose address is at 40:17; to 
update the screen image, poke a byte 
based on the address at xyz.”). That 
would have allowed an OS to set aside 
a machine-status block for each task, 
swapping the relevant pointers into low 
storage before activating a task. 

The PC’s success often makes us 
overlook the colossal marketing blun- 
der that IBM almost made. If you look 
at the design, specs, and documenta- 
tion of the PC circa 1982, you will real- 
ize that IBM intended the PC to be an 
up-market Apple. That’s the frame- 
work for its BIOS design: one user, one 
program in BASIC (loaded from cas- 
sette), lots of peeks and pokes, fun and 
games, whee! Thanks largely to inde- 
pendent vendors, the machine turns 
out to have enough horsepower to be a 
lot more, but it is still saddled with that 
simple-minded internal design. 

As a result, you get people like Yr. 
Intern who say, “Obviously a program 
should be written for good multitask- 
ing performance,” and also people who 
say, “Obviously my program ought to 


use whatever it needs to make it work 
well.” 


Who’s right? Both? Neither... ? 


BB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 
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EW PRODUCTS" 


Before Johann Sebastian Bach developed 
a new method of tuning, you had to 
change instruments practically every time 
you wanted to change keys. Very difficult. 


oN 


Before Avocet introduced its family of 
cross-assemblers, developing micro-pro- 
cessor software was much the same. You 
needed a separate development system 
for practically every type of processor. 
Very difficult and very expensive. 





But with Avocet’s cross-assemblers, a 
single computer can develop software for 
virtually any microprocessor! Does that 
put us in a league with Bach? You decide. 


thas UaAS> IN os) 


The Well-Tempered Cross-Assembler 


Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 3 years of actual 
use. Ask NASA, IBM, XEROX or the hun- 
dreds of other organizations that use them. 
Every time you see a new microprocessor- 
based product, there’s a good chance it 
was developed with Avocet cross- 
assemblers. 


Avocet cross-assemblers are easy to use. 
They run on any computer with CP/M* 
and process assembly language for the 
most popular microprocessor families. 


51/4” disk formats available at no extra 
cost include Osborne, Xerox, H-P, IBM 
PC, Kaypro, North Star, Zenith, 
Televideo, Otrona, DEC. 


Turn Your Computer Into A 
Complete Development System 


Of course, there’s more. Avocet has the 
tools you need from start to finish to enter, 
assemble and test your software and finally 
cast it in EPROM: 


Text Editor VEDIT -- full-screen text edi- 
tor by CompuView. Makes source code 
entry a snap. Full-screen text editing, plus 
TECO-like macro facility for repetitive 
tasks. Pre-configured for over 40 terminals 
and personal computers as well as in user- 
configurable form. 


CP MBO UErsiOn. 606. c lean aed 
CP /M-86 or MDOS version ....... $195 
(when ordered with any Avocet product) 


EPROM Programmer -- Mode! 7128 
EPROM Programmer by GTek programs 
most EPROMS without the need for per- 
sonality modules. Self-contained power 
supply ... accepts ASCII commands and 
data from any computer through RS 232 
serial interface. Cross-assembler hex ob- 
ject files can be down-loaded directly. 
Commands include verify and read, as 
well as partial programming. 


PROM types supported: 2508, 2758, 
eee sO, LOOn,  2tod, SHetoce: 
27C32, MCM8766, 2564, 2764, 27C64, 
27128, 8748, 8741, 8749, 8742, 8751, 
8755, plus Seeg and Xicor EEPROMS. 















Avocet 
Cross-assembler 


¢ XASMZ80 

° XASM85 
XASMO5 
XASMO9 
XASM18 
XASM48 





¢ CP/M-86 
Versions e 










$250.00 
each 








$200.00 
each 
$300.00 
$500.00 

Coming soon: XASM68K...68000 Pek ee ee ee 
(Upgrade kits will be available for new Call Us 


PROM types as they are introduced.) 


Pioneer. 9 SP ay ke $389 
Options include: 

e Software Driver Package -- 

e enhanced features, no installation 


e required. 

SEBO Version ok ea eS P76 

tee Versio sen i 5 $ 95 
Biigas Gale eee as $ 30 
8748 family socket adaptor... $ 98 
8751 family socket adaptor... $174 

e 8755 family socket adaptor... $135 


e G7228 Programmer by GTek -- baud 
e to 2400 ... superfast, adaptive program- 
® ming algorithms ... programs 2764 in one 
® minute. 


P PYOGEIAMICT «oo, cin ee An ee $499 


© Ask us about Gangand PAL programmers. 


¢ HEXTRAN Universal HEX File Con- 
e verter -- Converts to and from Intel, 
¢ Motorola, MOS Technology, Mostek, 
e RCA, Fairchild, Tektronix, Texas 
e Instruments and Binary formats. 


® Converter, each version....... $250 


Circle no. 5 on reader service card. 


If you’re thinking about development sys- 
tems, call us for some straight talk. If we 
don’t have what you need, we'll help you 
find out who does. If you like, we’ll even 
talk about Bach. 


CALL TOLL FREE 1-800-448-8500 
(In the U.S. except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now 
available -- please specify. Prices do not include shipping and 
handling -- call for exact quotes. OEM INQUIRIES INVITED. 


*Trademark of Digital Research ** Trademark of Microsoft 


AVOCET 
SYSTEMS INC: 


DEPT. 884-DDJ 

804 SOUTH STATE STREET 
DOVER, DELAWARE 19901 
302-734-0151 TELEX 467210 








SCISTAR: Greek and Math > 
Symbols with WordStar 


e both bought new printers 

recently and were faced 

with learning a new set of 
user-programmed commands that 
would allow us to make use of some of 
the special features of these printers. 
Why not have a special set of com- 
mands that is universal—that is, the 
same for all printers—included with 
WordStar? Anyone who has used a 
text formatter such as SuperScript will 
recognize the value of such a command 
set. In such systems, a Greek alpha is 
embedded as \AL\; for Not Equal To, 
you just write \NE\; and so on. All the 
special codes for particular printers are 
transparent and invisible to the 
operator. 

You can set up this same sort of 
command set very easily with Word- 
Star, using the option MAILMERGE in 
a way probably never envisaged by M1- 
croPro (yes, you can do more with 
WordStar than write hundreds of per- 
sonalized letters to your relatives). At 
the same time that you are embedding 
these codes, you can include some of 
the special features of your printer, 
such as emphasized print or underscor- 
ing, in a much neater way than Word- 
Star can. And the automatic word- 
wrapping still works perfectly, too. 
Furthermore, the use of universal and 
meaningful embedded commands 
greatly enhances the on-screen read- 
ability of scientific text. 


Any Computer, Any Printer 
One of us has a KayPro II with a 
ProWriter printer, the other a Morrow 


by John Thomas and 
Guy Fletcher 


John Thomas, Brookhaven Instru- 
ments Corp., 200 13th Avenue, Ron- 
konkoma, NY 11779. 

Guy Fletcher, The School of Mathe- 
matics & Physics, Macgarie Universi- 
ty, North Ryde, NSW 2113, Australia. 
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MD2 with a Mannesmann Tally 160L 
printer. You can use these special com- 
mands with any printer. Of course, 
there is a limited number (too limited!) 
of user-programmable functions in 
WordStar, and that number deter- 
mines how many features you can fit 
in. First, there are the four user func- 
tions, USR1 to USR4, called by *PQ, 
“PW, “PE, and *PR. Then there are 
the ribbon-change toggle (two codes) 
on *PY and the character-pitch 
change on *PA and *PN. And that’s it: 
eight available code sequences—and 
one of those doesn’t work from MAIL- 
MERGE (*PN sends a <CRLF>, for 
some reason that is obscure to us), 
though it works fine from WordStar. If 
each special feature needs one code se- 
quence to turn it on and another to 
turn it off, then you can run only three 
special features, but that covers a lot of 
possibilities in alternate character sets. 


SCISTARGreek Symbols 


Lower Case 

Alpha _ —COAL 
Beta BE 
Gamma GA 
Delta DE 
Epsilon EP 
Zeta ZE 
Eta FF 
Theta ; . . : _ TH 
lotta - @ 

Kappa KA 
Lambda LA 
Mu : MU 
Nu NU 
Xi Xl 

Omicron oc 
Pi Pi 

Rho RH 
Sigma SI 

Tau TA 
Upsilon UP 
Phi PH 
Chi CH 
Psi PS 
Omega OM 


ee i 


The Set of Commands 
The set of commands should be univer- 
sal, so that you can take your disk to 
another computer and have it read and 
print your file. And you can sit down at 
a friend’s computer without having to 
know what has been programmed on 
which keys or how to get Greek sym- 
bols. We tried to think of most of the 
common needs. Our complete set is list- 
ed in Table Ia and Ib (page 26 and 27). 
Your printer doesn’t offer some of 
these features? No matter, neither does 
ours. Include them anyway against the 
time when you have a better printer, 
and, meanwhile, print a blank (*PO) to 
leave space for hand-scripting them in. 
That way WordStar won't blow up 
when you print from someone else’s 
disk. To embed any command in your 
text, just enclose the variable name in 
ampersands—for example, &al& for 
alpha. Because upper-case and lower- 






BBE 
BGA 
BODE 
BEP 
8 = BET . 
BKA © 
BU 
BNU et 
BXI 
BOC 
BPI 
- BRH © 
BSI 
BTA 
BUP 
BPH a 
BCH — 
BOM 









Table la 
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case variables are treated the same, we 
chose &bal& (“big alpha’), etc., for 
the upper-case letters. 


The Command File SCI.CMD 
MAILMERGE requires two dot com- 
mands at the head of the document you 
want to merge-print: a data file in- 
struction, .DF, to specify the file con- 
taining the actual codes, and a read 
variables instruction, .RV, to read the 
data file. We have about 100 different 
variables, which makes for several 
lines of typing, so we put them all in a 
command file. Insert this at the head 
of your text with “.FI SCI.CMD”. This 
command file is the same for everyone 
and is given in Table II (page 27). 
There is nothing special about the or- 
der of the variables, but the data file 
must have the same order. 


The Data File SCI.DAT 

The file is individual to your printer. 
First, you have to decide what features 
you want and which patch areas to use 
for each feature. 

For the Mannesmann Tally printer, 
we use *PQ and *PW to turn the em- 
phasized (boldface) print option on 
and off. This is much better than using 
boldface from WordStar. We use *PE 
and “PR to turn the alternate (Greek ) 
character set on and off, by setting and 
clearing bit 8 at the printer. We use the 
ribbon toggle *PY to turn the in-line 
underscoring option on and off; again, 
this works much better than under- 
scoring from WordStar. And we use 
“PA and *PN.to disable and enable 
the paper-out switch, for printing sin- 
gle sheets. We have to use these two 
controls from WordStar directly, as 
they are not part of the MAILMERGE 
file—they wouldn’t work from there, 
anyway! 

Likewise, for the ProWriter we pre- 
fer to use its own boldfacing capability 
via “PQ (on) and *PW (off). *PE 
turns on the Greek and *PR turns it off 
(actually, it turns the ASCII character 
set back on). Again, we use *PY to 
toggle the ProWriter’s own in-line un- 
derscoring on and off. At the moment, 
we aren't using ~PA and *PN for any- 
thing useful, but we could use them 
(outside of MAILMERGE) to enable 
elite characters, for example. 

To write the data file, it helps to un- 
derstand how WordStar processes the 
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hex codes that are stored in your text 
file or embedded through MAIL- 
MERGE. All the printable characters 
from 20H to 7EH are sent directly to 
the printer. The 26 codes from 01H to 
IAH are the 26 control codes *A 
through *Z; WordStar operates direct- 
ly on these. Thus, 13H (*S, under- 
score) sends a backspace 08H followed 
by the underscore character 5FH after 
every character until you turn off un- 
derscoring. “Q, *W; *E, *R, *Y, and 
“A (but not *N if you are in MAIL- 
MERGE) send the code sequences that 
you have patched in WordStar to the 


printer. 

The files SCI.CMD and SCI.DAT are 
most conveniently written under 
WordStar in nondocument (N) mode. 
Put a hard <CRLF> at the end of ev- 
ery line; this is especially important to 
include with the last line in each file. 
To write *Q into your data file, you 
must type *PQ so that *Q is actually 
printed; otherwise, WordStar will act 
on *Q directly instead of printing it to 
the data file. 

The two tables in the appendix 
(page 29) show the actual data files 
SCI.DAT used for each of our printers. 


SCISTAR Math Symbols 
Multiply X x Left Arrow L -— 
Divide : DI = Right Arrow R - 
Plus/Minus PM 2 Up Arrow U 
Not Equal NE # Down Arrow D | 
identical ID = Dagger DA t 
Approx. Equal AE = Haft HA Y, 
Greater/Equal GE - Quarter OU #& 
Greater/Order GO = 
Less/Equal LE = Up 0 | U0 0 
Less/Order LO = Up 1 U1 : 
Approx. AP = Up 2 U2 2 
: Up 3 U3 3 
Infinity IF Z Up 4 U4 2 
Proportional PR Z Up 5 U5 ° 
Centre Dot CD Up 6 U6 © 5 
Convolution CV © Up 7 U7 ‘ 
Degrees DG ° Up 8 U8 s 
Square sa « Up 9 U9 9 
Grad GR vy Upn UN n 
Partial Deriv. PD 0 Up left brckt UL ( 
Square Root RT se Up right brckt UR 
Therefore TF . Up Plus UPL 7 
Integral INT j Up Minus UM | - 
Up Dot UD : 
Bold On BON Up Asterisk VA : 
Bold Off BOF Up Slash US / 
Underline UND (toggle) . 
Table Ib 
Command File SCI.CMD 
«DF SCI.DAT 
eRV AL,BE,GA,DE,EP,ZE,ET,TH,IO,KA,LA,MU 
eRV NU, X1,OC,PI,RH,SI,TA,UP,PH,CH,PS,OM 
e-RV BAL,BBE,BGA,BDE,BEP,BZE,BET,BTH,BIO,BKA,BLA,BMU 
RV BNU_BXI,BOC,BPI,BRH,BSI,BTA,BUP,BPH,BCH,BPS,BOM 
eRV BON,BOF,UND 
eRV X,DILPM,NE,ID, AE,GE,GO,LE,LO,AP 
eRV IF,PR,CD,CV,DG,SO,GR,PD,RT, TF,INT 
eRV L,R,U,D,DA,HA,QU 
«RV U0,U1,U2,U3,U4,U5,U6,U7,U8,U9,Un 
eRV UL,UR,UPL,UM,UD,UA,US 
Table Il 
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If you have a different printer, you will 
have to discover your own code se- 
quences to use and, of course, patch 
them into WordStar. In the appendix 
we also show how to patch WordStar 
to configure your printer in the same 
way as ours. 


The Problems 

You may have a printer different from 
either of the ones we’ve discussed, but 
you can still learn from our early mis- 
takes with each printer. At the very 


STAREDITDISKEDITSTA: / RE \ 
EDITDISKEDITSTAREDITDISKEDITST 
/DISKEDITSTAREDITDISKEDITSTAREDI'TDI 
'EDITSTAREDITOISKEDITSTAREDITDISKED! 

STAREDITDISKEDITSTAREDI TDISKEDITSTARE 
(EDI TDISKEDITSTARED!I TDISKEDITSTAREDITDI 
DISKEDITSTAREDITDISKEDITSTAREDITDISKEDI' 
EDITSTAREDI TDISKEDITSTAREDITDISKEDITSTAR 
| STAREDI TDISKEDITSTAREDI TDISKEDITSTARED' 16 
EDITDISKEDITSTAREDI TDISKEDI TSTAREDI TDISKE 


EDI TDISKEDITSTAREDITDISKEDITSTARED! TDISKEDI* 
DISKEDITSTAREDITDISKEDI TSTAREDI TDISKEDITSTARED 
(EDI TSTAREDI TDISKEDITSTAREDITDISKEDITSTAREDITDI 
| STAREDITDISKEDITSTARED! TDISKEDI TSTARED! TDISKE 


(DISKEDITSTAREDITDISKEDITSTAREDIT jouer STAREDITD 
Se STAREDITDISKEDITSTAREDITDISKEDITST beat oa 
\STAREDITDISKEDI TSTAREDITDISKEDI TSTARED! TDISK 
REDE DISKEDITSTAREDITDISKEDITSTAREDITDISKED! 
| DISKEDITSTAREDI TDISKEDI TSTAREDITDISKEDITS' 
\EDITDISKEDI TSTAREDITDISKEDI TSTAREDI TDISKE 
\STAREDITDISKEDITSTAREDI TDISKEDITSTAREDI 
\EDITDISKEDITSTAREDITDISKEDITSTAREDITDIS 
'DISKEDITSTAREDITDISKEDITSTAREDITDISKED 
\EDITSTAREDITOISKEDITSTAREDITDISKEDI" 


| DISKEDITSTAREDITDISKEDI TSTAREDITDISKED 
EDITSTAREDITDISKEDI TSTAREDITDISKEDI'S! 
STAREDITDISKEDITSTAREDITDISKEDITSTAR 
EDITDISKEDI TSTAREDI 1 DISKEDITSTARE 
DISKEDITSTAREDITDISKEDITSTARED! 
EDITSTAREDITDISKEDITSTAREDITDISK 
|STAREDI TDISKEDITSTAREDI 'DISKEDI! 
\EDITDISKEDITSTAREDITDISKED! 
DISKEDITSTAREDITDISKEDI'S 
\EQITSTAREDITDISKEDITS? 
STAREDITDISKEDITSTAR 
EDITDISKEDITSTARE 
\QDISKEDITSTAREDITD 
\EDITSTAREDITDIS 


Star-Edit 
and 
Disk-Edit 


Programming Tools 
as Good as You Are. 


least, you will become acquainted with 
the macabre way in which the eccen- 
tricities of WordStar and your printer 
may interact. 


Mannesmann Tally 160L 

Invoke the D-codes (daisy) option on 
the printer and patch ROLUP and 
ROLDOW in WordStar to ESC D and 
ESC U, respectively (yes, that is right). 
Then you can use the normal super- 
script and subscript toggles in Word- 
Star. You must install WordStar if you 








You've got the skills. Now, get the tools that match them. Star-Edit and 
Disk-Edit were designed tor the protessional programmer; they're powertul, 
no-nonsense tools that translate your work into fast, effective action. 


Star-Edit Text Editor 


A powertul, flexible screen editor that includes an Outstanding array of text 
editing commands. With Star-Edit, you can move and reproduce blocks of 
text or code; view two tiles simultaneously through split screen windows and 
move blocks of text or code between different tiles; pertorm torward and 
backward string searches; move torward or backward by character, word, 


sentence or paragraph; and much more . 


keystrokes. 
Disk-Edit Disk Utility 


_and do tt all with just a tew 


A uniquely powertul disk data Manipulation tool that gives you access to 
every bit of intormation on your disk in both HEX and ASCII. Disk Edit dis- 
plays byte locations, and side-by-side windows containing disk data in HEX 


and ASCII. 


Edit in HEX or ASCII, or switch back and torth between them: 


edit in either, and changes will be made in both. A valuable utility tool with 
a tull range ot text-editing Commands. Disk-Edit works on all disk drives, in- 


cluding hard disks. 


Both Star-Edit and Disk-Edit are avatlable tor CP/M-80, CP/M-86, 


and FeO). 


MS DOS 


For programming tools as good as you are, get Star-Edit and Disk-Edit from... 


OMe. 





Available at tine dealers everywhere 
or directly from SuperSoft. Call 
1-800-762-6629. Visa, MasterCharge 
and American Express accepted. 


FIRST IN SOFTWARE TECHNOLOGY 
P.O.Box 1628 Champaign, IL 61820 (217) 359-2112 Telex 270365 


Circle no. 63 on reader service card. 
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have a teletype-like printer that can 
backspace; otherwise, you will not be 
able to overstrike or backspace in any 
line containing a subscript because of 
the way the printer handles superscripts 
and subscripts. You cannot backspace 
inside a superscript or subscript either; 
this fact unfortunately prevents super- 
scripting composite characters such as 
® (overprint 0 and |). 

Underscoring with &und& is done 
in-line by the printer—without that re- 
peated backspacing that shakes the 
whole table—and boldfacing with 
&bon& and &bof& is done by a 
smooth extra pass over the line to bold- 
face the required words. Don’t try to 
avoid repeated backspacing by install- 
ing WordStar for a nonbackspacing 
teletype-like printer, because Word- 
Star will then send an overprint line 
after the printer has rolled down to the 
subscript line! 

When printing a line containing su- 
perscripts and subscripts, the Mannes- 
mann Tally 160L printer first rolls 
down a full line, then prints the super- 
scripted part of the line, rolls down a 
quarter of a line, prints the main line, 
rolls down another quarter of a line, 
and finally prints the subscripted part 
of the line before rolling down a full 
space to the next line. So for every line 
containing superscripts or subscripts, 
the printer rolls down an extra quarter- 
line: all of this is unknown to Word- 
Star. This may well take you past the 
perforation at the end of a page, unless 
you shorten the page length from 66 to, 
say, 62 lines. Also, you must use the 
form-feed option when printing, to po- 
sition the top of the next page 
correctly. 

There is a fundamental problem of 
incompatibility between backspacing 
and superscripting or subscripting in 
the same line. You just can’t super- 
script around or after a backspace or 
subscript before or around one. Those 
few backspaces hidden in SCI.DAT for 
making composite characters by over- 
striking are included in this conun- 
drum. The only way a round this seems 
to be to overprint a complete new line 
from WordStar (*P RETURN) that 
contains the desired superscripts and 
subscripts. 


ProWriter 
The ProWriter needs to be installed 
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carefully, though not especially be- | 
cause of our scheme. It has to do main- . _ 
ly with the way in whichthe ProWriter | 


"Data File SCI. DAT for Mannesman Tally 1 60L 


prints its Greek characters. seedy. 


you cannot have multiple passes over | 
any whole line of text that has a Greek : 
character in it, because when Word- | ~ 


Star makes multiple passes (e.g., to 
boldface), it inserts spaces (20H) in 


any position that is not being over- | 


printed. This normally is no problem, 
but when Greek is enabled, the Pro- 
Writer prints c when it receives 20H 
because WordStar always remembers 
which character set was enabled at 
each and every point in the line. 

To circumvent these problems, you 
must install the ProWriter as a tele- 
type-like printer that can backspace, 
and you must specify that superscript- 
ing and subscripting be done via 
WordStar’s ROLUP and ROLDOW. 
This means that the printer must be 
initialized (via PSINIT) to enter the in- 
cremental print mode, and you need to 
set up ROLUP and ROLDOW to move 
‘a half-line up and down (details in the 
appendix). 

MAILMERGE will not pass ” (22H) 
as a variable, so to get Greek y from 


the ProWriter, you have to do it long- | 


-hand via WordStar (i.e., *PE”*PR). 
By the way, the ProWriter’s own 
boldfacing and underscoring work 
beautifully in a single line pass, but 
rolling up and down is a flaky opera- 
tion on our ProWriter. The printer 
rolls up erratically; often, the vertical 


registration can be out by a quarter of | 


a character (big minus for ProWriter). 


It Works 
We have already written a couple of 
scientific papers using this scheme. It 


works beautifully, producing readable | 


source files and the desired output. For 
example, 


X*T&al&*T &ge& &hbe&Ku2& 
isan &bon&inequality &bof& 


produces this line: 


ge. B 
is an inequality. 


Nice, huh? BBJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 192. 
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N00, EO RP, ED R.LY, EW RX,O, EPR 


| Bold con 


| Data File scl. DAT for Prowriter 


oe EI'R,"0,E# ESR, “E%'R, E&’R, ER, EC 
ER E-RE R,E/REOR, EIR, E2 RF, ESE 
A,B, E9’R, ES” EZH, °O,LK,ESR,M 


N 0.0 OPE: RY OX, “"PRE<'R 


EB R. ECR, E@R, “EARS H— 


WORDSTAR PATC HES for ProWriter. : 












OW Y: 


~ ~ ~~ 


-&X, EvR, "Eq’R, ="H/, EpR, ‘O,ErR,> HV V, Es Hv “V,EwR 


- ~ ~ 


“YR, 0,E R.OH+,ExR, 0, T—T HVOHE(R, O/ETETH Wu VR a. |= 
(006.00 HiZis . 


ExR, Be IST. T4T, ‘1S 1, 161, Asi, TST, TOT, ER 











~ sri ESC[= ee 
 Bold_off USR2 ESC -z 04H, 1BH,5BH,3EH,7AH © 
Greek_on USR3 ESC[9z 04H, 1BH,5BH,39H,7AH 
_ Greek_off USR4 ESC[8z 04H, 1BH,5BH,38H,7AH _ 
_ Paper_out_disable  PALT ESC[:z 04H, 1BH,5BH,3AH,7AH — 
Paper_out_enable PSTD ESCi|<z 04H, 1BH,5BH 3CH,7AH - 
Underscore_on _ RIBBON ESC/4m _ a 2 H,6DH | 
| — RIBOFF ESC[Om eo 30 a H,6 ~ 
Superscripting _  ROLUP ESCD 02H, 1BH AGH 
& See ROLDOW ESCU : 02H, 1BH, 55H 


_ Printer installed ; as “‘teletype-like printer that can \backspace”” _ 


D-codes enabled on aloe 











"0, W,Y se 

X, 0, EDR, EER, 0,0, e >HV V, EGR < HV -VEHR 

EK'R, 0, E1R, EJR, EOR, E7R,VHT—T,oH; E> RR, ELA. O 
EMR, ENR : 


"EO'R, EPR, EOR, ERR, ESR, EVR, EUR, EVR, EV 






R ) xR, Tr 7 / 
EY R, EZR, ER, ae aoe EH _ _ 





: be 1BH, 21 He . 





- Bold_on  usRt ESC! — _ 
Bold_off | +vusR2 Esc’ _ O24 1BH22H ~~ 
Greek on. =. USHG ESC& ik 

ASCion  =-—=CssC‘éidSsnag~=—ssé#dSCS; — O27 18h 245 

oe oe 

_Underscore_on _ IBBON = ESCX 

| Underscore_off © BOFF ESCY - Q2H,1BF ——r—eN 
Superscripting — FF te }©3=—sESGr<i FP “O4H 1BH,72H, OAH, OOH 

|  &subscripting = ROLDOW  ESCf<LF> ___ 04H, 1BH,66H,OAH,OOH 

Nowsot —CRIF> ##PSCRIF  ESCF<CR- <UF><LF> OSH, 1BH, 66H 

_Jnitalizaton = == PSINT ~~—s- ESC[ESC112 - _~—~—sCOOTH. ODH, 1BH, 5BH 
string . 1BH,54H,31H, 32H 
Finish string PSFINI ESC] 02H, 1BH, 5DH 


Printer installed as ‘‘teletype-like printer that can backspace”’ 

PSINIT sets ProWriter in incremental mode and sets linefeed to 1/12”. 
PSFINI returns ProWriter to logic seek print mode. — 
PSCRLF gives a ‘‘normal’’ <CRLF> by making sure that the carriage rolls sown. and sending 
two 1/12” linefeeds. 
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What s the Diff’? 


A File Comparator for CP/M Plus 


file comparator is a program 

that compares two files and re- 

ports the differences between 
them, or reports that they have no dif- 
ferences. Such a program can be very 
useful, especially in systems _ that 
don’t put a time stamp on each file that 
is created. In such systems a compara- 
tor is often the only way to answer such 
questions as, “Is that really the latest 
version?”’. 

A file difference finder is a program 
that goes one step further. Not only 
does it find the differences between 
two files, it records those differences in 
a third file for later use. A difference 
finder is a key part of any system for 
the automatic management of soft- 
ware development. A program source 
file goes through many changes as it is 
developed, tested, and maintained. 
With a difference finder, each succes- 
sive version of a program can be stored 
as a difference file that contains only 
the changes from the prior version. 
There’s great storage economy in this. 
Furthermore, a difference file is a 
compact representation of a program 
update, and as such it can be a good 
way of distributing a bug-fix. 

The ideal format for a difference file 
is a script of commands that will direct 
some kind of editor in the process of 
converting the old file into the new one. 
When differences are captured in such 
a form, the latest version of a base file 
can be created entirely by software, 
automatically. The editor is applied to 
the base file and given successive dif- 
ference files as its script. The edited 
result is the new file. 

For example, in IBM’s VM/370 op- 
erating system difference files are 
called ‘‘update”’ files, and there is a 


by D.E. Cortesi 


D.E. Cortesi, 430 Sherman #212, 
Palo Alto, CA 94306. 
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special UPDATE program that will 
generate a new file from a base file and 
a list of update files. Text editors used 
with the system have the ability to 
store only the changes made during an 
edit session, writing them as an update 
file. 

A system like the one in VM/370 
requires special-purpose software (the 
UPDATE program is used only for 
that, and update files are not the nor- 
mal output of an edit). A public do- 
main program called DIFF can be 
found on some bulletin boards; it, too, 
seems to use a special-purpose pro- 
gram to apply the updates. How much 
nicer it would be if a file difference sys- 
tem could be constructed using only 
the standard tools a system affords! No 
doubt this can be done in Unix, with its 
plethora of tool programs and its great 
ease of plugging tools together. But it 
can also be done in CP/M Plus. 

CP/M Plus contains most of the 
tools that are needed. It has ED, an 
editor that nobody would willingly 
adopt for personal use but one that is 
perfectly suitable as an automatically 
driven file updater. Furthermore, CP/M 
Plus contains the command GET, 
which redirects console input to a file. 
Thus these two CP/M Plus commands: 


get differ.dat 
ed basefile 


would cause ED to load BASEFILE 
and perform upon it the modifications 
commanded by the lines of DIFFER 
.DAT. If there were several difference 
files to be applied in order, they could 
be handled by a sequence of com- 
mands, and the sequence could be writ- 
ten up as a submit file to run automati- 
cally. All that is lacking is an 
automatic way to create difference 
files. 

What is needed is a program that 
will read an old and a new file (most 
likely the new file will be the result of 
editing the old one, and the old file will 


be the .BAK version of the new one). 
After comparing the two files, the pro- 
gram will write a difference file; this 
will contain exactly the ED command 
lines needed to transform the old file 
into the new one. 

It sounds fairly straightforward, 
doesn’t it? Before you read any fur- 
ther, take a few minutes to sketch out 
the top-level logic of such a program. 
Pll wait. 

Ah, you’re back. Not so simple after 
all, is it? As a matter of fact, it’s a 
bear. The intuitive algorithms (and 
some that are not so intuitive) all seem 
to lead to excessive storage use, or to 
execution times that are an exponen- 
tial function of the file sizes. One com- 
mon method uses a comparison “win- 
dow” whose size is a critical program 
parameter. Here’s a quote from the 
manual for AUTODIFF, a file compar- 
ator distributed by The Software 
Toolworks. 

‘‘AUTODIFF starts to work by lining 
up the tokens from one input file ... 
with the tokens from the other input 
file. Next it looks for the start of a dif- 
ference .... The next task is the hard 
part: finding where the difference 
ends. This is called synchronizing the 
files, and AUTODIFF’s tool for accom- 
plishing it is the sync window.... 
Starting at the head of each queue, 
AUTODIFF slides a syne window back 
and forth over each queue until it finds 
the same pattern showing through 
both windows, or until one or both of 
the windows slide off the end of its 
queue. 

“If the sync windows were very 
small... AUTODIFF would most like- 
ly see the same pattern in both win- 
dows even though the surrounding to- 
kens were totally different. On the 
other hand, if the sync windows were 
very large ... AUTODIFF would most 
likely slide both windows right off the 
ends of their queues, in which case its 
idea of a difference would consist of 
the whole of each input file. So the size 
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of the sync window is very important. 
For AUTODIFF to work, it can’t be too 
large or too small.... Unfortunately, 
the right sync window size depends 
heavily on the statistics of the data 
.... (Copyright 1982, Digital Con- 
structs, Inc.) 

After making a number of stabs at 
the problem, I decided to turn to “‘the 
literature” to find out if somebody 
smarter than I had found a better an- 
swer. And somebody had. The some- 
body is one Paul Heckel, who pub- 
lished his algorithm in a paper entitled 
“A Technique for Isolating Differ- 
ences Between Files” in the April 1978 
issue of Communications of the ACM. 
Heckel’s algorithm actually generates 
more data than a difference finder 
needs. Not only that, but it does it in 
time that is guaranteed to be linear in 
the size of the files and with storage 
that is never more (usually much less) 
than the combined file sizes. 

Heckel started by reversing the 
terms of the problem. Rather than 
searching for differences between two 
files, his algorithm concentrates on 
finding the similarities. Once those 
are marked, whatever is left is a differ- 
ence. He devised two rules that would 
find most similarities. 

Rule | says that “a line that appears 
once and only once in each file must be 
the same line (unchanged but possibly 
moved).” The rule is implemented us- 
ing a symbol table and two arrays. 

First, the old file is read and each of 
its lines is entered into the symbol ta- 
ble. An array called OA, indexed by 
the line numbers of the file, is used to 
record the symbol-table numbers of 
each line. Only the text of unique lines 
needs to be retained; duplicated lines 
simply get duplicate symbol-table indi- 
ces. A counter in each symbol-table 
entry is incremented each time a line is 
found. 

Next the new file is read and its lines 
are entered to the symbol table. Only 
line texts unique to the new file need to 
be retained. Another counter in each 
symbol-table entry is incremented to 
record the appearance of each new-file 
line, and the file is recorded as an array 
NA of symbol-table indices. 

Now rule | can be applied. For each 
line represented by NA, look at the 
corresponding symbol-table entry. If 
‘he old and new counters both contain 
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1, that line satisfies rule 1 (appears 
once and only once in each file). The 
corresponding new and old lines are 
marked as “matched”; they cannot be 
differences. Lines are “matched” by 
putting reciprocal line numbers in 
their VA and OA array entries. 

At this point, four kinds of lines are 
known. Those that satisfy rule 1 are 
marked. The remainder either appear 
in the old file but not the new (and 
hence are deletions); or appear in the 
new file but not the old (these are in- 
sertions); or appear more than once in 
one or both files (and are ambiguous at 
this point). To understand this, think 
of the block comments in a program 
file. The comment text lines, if they are 
unchanged, would be matched up by 
rule 1. The decorative lines of com- 
ment delimiters that frame them 
would not be matched by rule 1 be- 
cause many of them appear in each 
file. 

Heckel’s rule 2 acts to resolve the 
last category. I would phrase it this 
way: “If the lines adjacent to a 
matched pair of lines are identical, 
then the adjacent pair are matching 
lines as well.” These adjacent matches 
can be found in two sweeps over the 
arrays, one to find matches that follow 
a matched line and the other to find 
those that precede one. Afterward, all 
the similar lines have probably been 
found. The only similarities that would 
be missed are those that (a) appear 
more than once in each file and (b) are 
separated from every rule-1 line by a 
changed line. Such missed similarities 
will not be lost, but they will be treated 
as changed lines in the output. 


Heckel claims as an advantage of his 
algorithm that it recognizes block 
moves for what they are. Lines that are 
moved, but not otherwise changed, are 
matched as similar. They can be recog- 
nized by discontinuities in the ascend- 
ing sequence of line numbers in both 
the OA and NA arrays. Unfortunately, 
there is no easy way to record a block 
move as a sequence of ED commands, 
so I couldn’t use the information. 


However, it is possible to locate all 


block moves and ‘‘unmatch”’? them 
(converting them into deletes and in- 
serts) in a single sweep over the arrays. 
The listing that follows (page 32) is 
a prototype implementation of Heck- 
el’s algorithm in Pascal. Since it was 
put together as a learning exercise, it 
has a number of rough edges; still, it 
does work. Except for a few compiler 
dependencies (declaring a variable- 
length string, finding its length, and 
opening files) it should work with any 
CP/M or MSDOS Pascal compiler. 
Pascal is not the best language for 
this program. It really needs more 
freedom to allocate storage. An imple- 
mentation in C could be more flexible 
about maximum file sizes. An assem- 
bly language version could play several 
tricks to reduce the size of the symbol- 
table entries as well. Even so, this ver- 
sion can do useful work on files of mod- 
erate size, and it is surprisingly quick 
in execution, running in only a little 
more time than it takes to read the two 
files and write the difference file. BBJ 
(Listings begin on next page) 
Reader Ballot 
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What's the Diff? Listing (Text begins on page 30) 


{ HDIFF : a file-difference finder 


Based on "A Technique for Isolating Differences 
Between Files" by Paul Heckel, Communications of 

the ACM Vol 21 Number 4 (April 1978), this program 
(1) reads an old and a new file, (2) finds the diff- 
erences between them in time that is linear in the 
size of the files, and (3) writes a file which is 

a script to drive an editor (ED) to change the old 
into the new. 


} 
program diff(input,output) ; 


label 99; { main-proc error exit } 


const 
maxfile = 300; { largest old/new file (arbitrary) } 
maxover = maxfile+1;{ allow for a sentinel value } 
maxchar = 1273 { max chars/line, 128 bytes/string } 
maxsym = 1023; { symbol table size, prime > 2*maxfile } 
topsym = maxsym-1; { max index of ST array } 


{ CP/M storage requirements are: 6*maxover + 8*maxsym plus 
128 bytes per each UNIQUE line in the combined files } 


type 
symnum = 0..topsym; { type of symbol table indices } 
linenum = 1..maxover; { types of indices to OA, NA } 
linecnt = 0O..maxover; 


{ compiler dependent: define a varying string up to maxchar bytes } 
ltext = string maxchar; 


lineree = record { descriptor of one file line in OA, NA } 
matched : boolean; { true when matched with other file } 
index : integer; { index to symtab or to other file } 
end ; 


symrec = record { one symbol table entry } 
hashval : integer; hash of this line, neg = unused entry } 


: { 

lineval : “ltext; { address of text string } 
Oline : linenum; { index to line in old file OA } 
Ocount. 25° 05..23 { occurrences in old file: 0, 1, many } 
Neount/- oe 0.42 { ditto in new file } 

ends 

var 
oldmax, newmax : linecnt; { linecount of each file } 


oldfile, newfile, diffile: text; 
OA, NA : array[linenum] of linerec; 
ST : arrayl[symnum] of symrec; 


{ Compute a 15-bit signature based on all the characters of a 


(Continued on page 34) 
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What's the Diff? Listing (Listing continued, text begins on page 30) 


line. Pick a symbol table entry based on the hash and return 
the symbol index. If different lines hash to the same entry 
just overlow by ones, the simplest policy. The full hash 
code is saved in the symtab entry for quick discovery of 
unequal lines. } 


function store(var t: ltext) : symnum; 
label: 1,2533 
var s: symnum; h: integer; 


{ compiler-dependent: return length of string t } 
function strlen(var t: ltext): integer; 
type pascalz = string 255; 
function length(pz: pascalz):integer; external; 
begin strlen := length(t) end; 


function hash(var t: ltext): integer; 
const hashlim = 16256; { (maxint div 4)-127 } 
var q: integer; len: 0..maxchar; 
begin 
q := 0; 
for len := strlen(t) downto 1 do begin 
q := q + ord(t{len]); { add current byte } 
{ shift left to 14 bits, then wrap } 
if (q < hashlim) then q :=q+q 
else q t=°1 + q div-2 
end} 
hasn't 
end; { function hash } 


begin { function store } 


h s= hash(t); 
s := h mod maxsym; { initial probe of symbol table } 


{ find duplicate line or vacant symbol starting at ST(s]. 
If you know a "structured" way to code this, let me know. } 


1: if (ST{s].hashval < 0 ) then goto 2; { free entry } 
{ used entry, is t a duplicate of another line? } 


if (ST[s].hashval = h) { quick test, eliminates most } 

and(ST[s].lineval* = t) { slow test assures dup line } 
then goto 3; {yes, we have this line} 

s := (s+1) mod maxsym; { try next table entry } 

goto 1; | 


2: { empty symbol table entry found -- install new line } 
with ST[s] do begin 
hashval := h; 
new(lineval); 
lineval” s:= t 
end $ 
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3: { line now exists in symbol table } 
store. := s 


end; 


{ read the old file, store its lines in the symbol table, and 
count their occurrences in Ocount in each entry. } 
procedure pass1; 


var o: linecnt; 
S$ symnum; 
Cs. ltext;. 


begin 
Oo t= Os 
repeat 
readlin(oldfile,t); 
O 3= O+13 


S := store(t); 
with ST[s] do begin 
OLEnG. $=) Os 
if (Ocount <> 2) then Ocount := Ocount + 1 
end; 
with OALo] do begin 
matched := false; 
index t= 
end 
until ( eof(oldfile) or ( o = maxfile ) pe 
with OA[o+1] do begin { create sentinel } 
matched := true; 
index := maxover 
end; 
oldmax := 


end; 


{ read the new file, store its lines in the Symbol table, and 
count their occurrences in Neount in each entry. 
procedure pass23 


var ns linecnt; 
S$: symnum; 
Es itext.s 


begin 
Mee Fi 
repeat 
readin(newfile,t); 
n t= n+13 
Ss 22 stereltix 
with ST[s] do 
if (Ncount <> 2) then Neount := Neount + 1; 
with NA[n] do begin 
matched := false; 
index t= s 
end 
until ( eof(newfile) or ( n = maxfile ) ); 
with NA[n+1] do begin { create sentinel } 
matched := true; 
index := maxover (Continued on next page) 
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What’s the Diff? Listing (Listing continued, text begins on page 30) 


end; 
newmax :=n 


end; 


{ record the fact that two lines match by placing 
reciprocal indices in their array entries. } 


procedure matchup(o, n: linenum); 
begin 
with OA[o] do begin 
matched := true; 
index t= n 
end; 
with NA[n] do begin 
matched := true; 
index fac0 
end 
end; 


{ apply rule 1: when a line appears just once in each file, it is 
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the same line (altho perhaps not in its original position). } 


procedure pass3}; 
Var s< symnums;o,n : 


begin 


linenum; 


for n := 1 to newmax do begin 


S;2=-NAbn ].index; 


with ST[s] do 


if (Ocount=1) and (Neount=1) then 
matchup (Oline,n) 


end 
end; 


{ apply rule 2, sweeping down the file to spread the rule-1 matches 


toward the end of the file. 


procedure passa; 


var 0, O1, n, ni : linenum; 
begin 
for n s=- 1. to newmax~1T. do 


if (NA[n].matched) then begin 


0 Me Oe Se 


if (not NA[n1].matched) then begin 
o := NA([n].index; 


(Continued on next page) 
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‘Any applications programmer still 
struggling with outdated 3rd gener- 
ation data base managers or worse, 
a 2nd generation language like 
BASIC is ripping himself off. ”” 


So what are you waiting for? Here is 
your chance to dump all the dBASE II 
hassles and move up to Q-PRO 4... 
the sensational 4th generation 
language for faster, easier application 
development. 
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What’s the Diff? Listing (Listing continued, text begins on page 30) 


if (o < oldmax) then begin 
O13 60 +. 33 
{ the "matched" flags participate in 
the following comparison to ensure 
that symbol indices are compared } 
if (OAL[o1] = NA[n1]) then 
matchup(o1,n1) 
end 
end 
end 
end; 


{ apply rule 2, sweeping up the file to spread previous matches 
toward the top of the file. } 
procedure pass4b; 


Var .0, OT: ny: 113 - fimenun; 


begin 
for n := newmax downto 2 do 
if (NA[n].matched) then begin 
HAS SS No oT § 
if (not NA[n1].matched) then begin 
o := NAC(n].index; 
if (o > 1) then begin 
Ot 2.00 = 43 
if (OA[o1] = NA[n1]) then 
matchup(o1,n1) 
end 
end 
end 
end; 


{ Unmatched lines in OA represent deletes; unmatched NA lines are 
inserts. Ignoring these, the matched lines should increase 
monotonically. When they don’t, when a discontinuity appears, 
a block-move is present. It is unclear how to record such 
moves in a difference file, so here we find them and "unmatch" 
the moved block, converting it into a delete/insert. 


There is a figure/ground ambiguity -- any block move can be 
seen aS a move-up of some lines or a move-down of others. We 
select the smaller of the two groups to be the "moved" group.} 


procedure pass5; 
var o, n: linenum; 


procedure resolve( var 0, n : linenum ); 

{ a discontinuity starts at OA[o] and NA[n]. figure out whether 
fewer lines have been moved up to NA[n] or down from OALo], 
and convert the smaller group to inserts and deletes. } 


Var xO, he JJ 2ienum; 
t, ospan, nspan : integer; 
S 3: symnum; 
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begin 
RO OF { measure the 
repeat 
& #5..1 + OALxo ] .dindex’ 
XO xO + 1 
until (t <> OALxo].index); 
ospan XO - 03 


Bn S's Ts { measure the 
repeat 
t s= 1 + NALxn].index; 
mM 8= xn. +1 
until (t <> NA[xn].index); 


nspan xn - n3 


if (ospan < nspan) then begin 


XO te 6 { 
xm := OA[o].index;§ { 
t = ospan; { 
O $= 0 + ospan { 
end 
else begin 
xn $= n3 { 
xo := NA[n].index; { 
t $= nspan; { 
n =n + nspan { 
end; 


{ Unmatch a block of matched lines. 


Symbol table index here, 
the table. 


block starting at OA[o] } 


block moved up to NA[n] } 


{ a block moved down } 


convert OA[o..] which matches } 


lines further down in NA } 
number of lines to convert } 
continue sean after block } 


{ a block moved up } 


convert NA[n..] which matches } 


lines further down in OA } 
number of lines to convert } 
restart scan after block } 


We need the 
and find it by scanning 


This expensive operatiori could be 


eliminated by retaining the symbol index in OA} 


while ( t > O ) do begin 

Ss ‘Ds 

while (ST[{s].Oline <> 

with OA[xo] do begin 
matched false; 
Tnoex 2= 3 

end; 

with NA[xn] do begin 
matched := false; 
index 


end 


va 
O 


1 
1 


‘anal 
> Oo 
1} ec ee we 


Te 
ct 

> 
i5 
— + + 


ct 
ee 


end 
end; { procedure resolve } 


begin { procedure pass5 } 


S66, 138k ee a 
while (OA[o].index <> maxover) 


while 
So 22 
while 
nce. + 1S 


Oo+ 135 
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xO} 'dO.S t= 5 4+ Ts 


do begin 


(not OA[o].matched) do {skip deletes} 


(not NA[n].matched) do {skip inserts} 


(Continued on next page) 
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What’ S the Diff? Listing (Listing continued, text begins on page 30) 


if (OAL[o].index =n) then begin { matching lines } 
O 3:2 0 + 1; 
Nn so Neat 

end 

else { a discontinuity ? } 
if (OA[o].index <> maxover) then { yes } 

resolve(o,n) 
else { no, just the sentinel } 
end 


end; { pass5 } 


{ Write the difference file as a script that will drive a 
line-editor in converting the old file to the new one. 
Actual output is modularized for ease in converting to 
a different editor than CP/M’s ED. } 


procedure pass6; 


Vario, Ns, 3n.4. damenum; 
te t= inserger’s 


{ cause necessary initialization of editor } 
procedure putfirst; 
begin 
writeln(diffile, ‘#a’); 
end; 


{ delete t lines starting at current one, leave 
line after last delete as current line } 
procedure putdel(t : integer); 
begin 
writeln(diffile,t:1, k’) 
end; 


{ set up to insert lines at end of file } 
procedure putbot; 
begin 
writeln(diffile, “-b’) 
end; 


{ skip ahead t lines in the file } 
procedure putmov(t : integer); 
begin 


writeln(diffile,t:1, L’) 
end; 


{ insert t lines beginning with NA[k] -- the new 
lines PRECEDE the current line and afterward the 
current line is the same as at the start. } 


procedure putins(k : linenum; t : integer); 
begin 
while (t > 0) do begin 
writeln(diffile, “i°,ST[NA[k].index].lineval”) ; 
Kose +. 1; (Continued on page 42) 
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CP/M® Software 


A>DBPACK: Information Manager -- Great for 
Mailing Lists, Form letters, Tabulation and 
organizing data. Supports query, sort/search on 


multiple keys, report generation and many 
other data base functions. $115/$25. 


A>COMCOM: Communication program. Up- 
loads/Downloads files, and more. $95/$15. 


A>CPMCPM: Transfers files (any type) between 
CP/M computers with incompatible disks. 
$65/$10 includes copy for each computer. 


A>FILER: Archives, Sorts and Catalogs files 
with substantial disk space savings. $49. 


A>BASXREF: Alphabetizes and Cross-refer- 
ences variables vs. line numbers in BASIC pro- 
grams. Simplifies program maintenance. $39. 


A>UNERA: Recovers erased files. $29. 


CP/M is a registered trademark of Digital Research, Inc. 


Available in most disk formats. 


Clearly written and indexed manuals included. 
Where two prices are quoted, second refers to 
manual only (creditable towards software). 


All packages returnable in 15 days. 


PTteat! ede Vereen tot WR Meta as: ae meta ST ee 


ee "COMPU-_ DRAW ie MasterCard, “Visa & 


1227 Goler House 
Rochester, NY 14620 
(716)-454-3188 


Amex cards, PO's from 
. recognized institutions 
and COD are welcome. 


Sagi: & 





Circle no. 10 on reader service card. 








FOR $29.95, DISK INSPECTOR MAKES 


YOU A SHERLOCK HOLMES 
OF THE COMPUTER! 


Ever wonder what happened to that erased or lost file? Did text 
suddenly disappear and can’t be found? Did a bad sector do strange 
things to your files? Then track them down with Disk Inspector! 
Rated “Excellent” by INFOWORLD, Disk Inspector is a utility that 
pays for itself with the first recovery. Even more, Disk Inspector 
allows you to use the Auto-Load feature of CP/M, blank out bad 
sectors, create multiple entries, small files, all without any knowledge 
of programming! Just $29.95, plus $2.00 postage and handling, 
you become the chief inspector. Sold with the usual 
Overbeek 30 day money-back guarantee. 


MAKE ME A CHIEF INSPECTOR! Enclosed find check for $31.95 or 


charge my Mastercard#_-— CEE press: 











Visa# Expires: 

Check format desired: 

a Sea __Osborne Single Density __KayPro II 
__Superbrain __Osborne Double Density __NEC 5” 
__Northstar Advantage __Morrow Micro Decision __Televideo802 
__Northstar Horizon __Xerox 820 Single Density __ALTOS5 


__Apple/Softcard __Xerox 820 Double Density _ Epson 


I’m not ready to order now, but send me information about all the 
affordable programs from Overbeek Enterprises. 


Name 
Address 
Oily ea oe State eet Zap 
OVERBEEK ENTERPRISES, P.O. Box 726D, Elgin, IL 60120 
312-697-8420 
CP/M is a trademark of Digtital Research. 


Disk Inspector— another affordable program 
from Overbeek Enterprises. 
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MAIN MENU 
16-27-83 
315-83 
11-87-83 
11-87-83 
11-67-83 


4) PERFOR 
PRODUCT NUMBER: 123456 
PROCUCT NAME: Inverted Tweaker 


19.23 QUANTITY OM HAND: 18265 
62.58 REORDER POINT: 2088 


8: 
» 
8: 
9: 
6: 
9: 
1: 
1: 
1: 
1: 
4: 
1: 
4: 


Use the up and down arrowsPRODUCT DESCRIPTION: Reverse metaf lange for 
or type the number for thiframilgating bent borogoves. 

Press <ENTER> to select t 

Press <ESC> to exit from this menu. 

Press ? for help with the highlighted menu item. 


pL ae be Ba 


AMBER SYSTEMS, INC. 
1171S. Sunnyvale-Saratoga Road 
San Jose CA 95129 

(408) 996-1883 





Copyright 1984 Amber Systems. Inc. 








Don't just put your applications in windows—put windows in your 
applications with VSI—the window manager. 

VSI is a high-speed screen management tool. You can create up to 255 
simultaneously active overlapping windows—large or small—for any 
application program. Read to or write from any window and display them 
with borders and user declared priorities. VSI is callable from any com- 
piled language and supports all color and monochrome video attributes. 


Cut Development Time 

VSI's powerful primitives simplify your screen management chores 
with a complete library of functions. And you can preview and edit your 
screen layout before you actually program it. 

But that’s only the beginning. 


Free Demo Disk 

Our free hands-on demo disk will have you doing windows, too. 
Return the coupon with $4.50 for postage and handling. 

MasterCard or Visa accepted with phone orders only. 

VSI is used with IBM PC, XT and compatibles as well as TI 
Professional, and Wang PC. 


| develop software for 8086/8088 based machines and I want to do windows, too. 
I'm enclosing $4.50 for postage and handling. Please send me your free demo 
disk. My business card is attached. (Offer expires December 31, 1984) 














| Computer: | 

| Name | 

| Company. | 

| Address | 
City State Zip 

Leste peti Rigs ea ee add le, we a ed ees 
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What's the Diff? Listing (Listing continued, text begins on page 30) 


ie ek ee 
end 
end}; 


{ close file and end editor } 
procedure putlast; 
begin 
writeln(diffile, “e’); 
end; 


begin {pass6} 
pucr i rst; 
2 -E—ge a & ae a 
repeat 


if (not OA[o].matched) then begin { deleting } 
&. 25.04 

repeat 

t 


St + 15 

= Oo + 1 

until (OA[o].matched) ; 
putdel(t) 


end $ 
if (not NA[n].matched) then begin { inserting } 


{ if (n = 1) then puttop? -- nothing special 
needed to insert above line 1 with ED } 


if (o > oldmax) then { ins. at bottom } 


putbot; 
ve ¢e"0% 
xn 3= N; 
repeat 
aie ee ae ES 


ese nei 
until (NA[n].matched) ; 
putins(xn,t) 
end; 


G heUg 
while (OALo].matched) and 

(NA[n].matched) and 

( o <= oldmax ) do begin { skipping unchanged lines } 
15 


] 


> O ct 
= © ct 


+ 
+ 
+ 


1 
1 
end; 

if (t>0) then putmov(t) 


until (OA[o].index=maxover) and (NA[n].index=maxover) ; 
putlast; 
end; 


procedure setup; 
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var j : symnun; 
Fspec : string 14; 


begin 


fer Toes: 0 £6. topsym: do 
with ST[j] do begin 
hashval := -13; { entry not in use } 
Oline := maxover; 
Ocount += 0 
Noount.<= 0 
end; 


we 


Oldmax := 0; 
newmax := OQ; 
{ compiler-dependent: get names and open files } 
write( “ORIGINAL file’’s spec: “); readin(fspec); 
reset (fspec, oldfile); 
write( “MODIFIED file’’s spec: “); readln(fspec); 
reset (fspec, newfile); 
write( DIFF file’’s spec: “); readln(fspec); 
rewrite(fspec, diffile) 
end; 


begin {main procedure: set up, check for empty files, invoke passes } 


setup; 

if (eof(oldfile)) then begin 
writeln( “Old file is empty; diff is all-insert.’); 
goto 99 

end; 

if (eof(newfile)) then begin 
writeln( “New file is empty; diff is all-delete.’); 


goto 99 
end 5 
pass1; { read, store old file } 
pass2; { read, store new file } 
pass3; .{ apply rule :t-} 
pass4a; { apply rule 2 working down } 
pass4b; { apply rule 2 working up } 
pass5; { convert moves to del/ins pairs } 
pass6; { generate script for ED } 
99: 
end. End Listing 


HT HE 


' oo 2488 <7.05} IEEE 488 TO S-I00 INTERFACE 


CTEEE- 488) C IEEE - 488 ) "Handles all IEEE-488 1975/78 functions 
#®lIEEE 696(S-100) compatible 
"MBASIC subroutines supplied; no BIOS 
a tO LECH ESS 
arallel ports (8255A-5) 
in ite He SEY burned in and tested 





[Dealer inquiries invited] 


DSW DIGITAL 
20655 Hathaway Ave. 
Hayward, CA 94541. 415/ 887-5711 





Circle no. 20 on reader service card. 
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An Infinite Key 


Encryption system 


f you have ever stored private information on a public disk 

file or transmitted it over the telephone network to stor- 

age on a mainframe or to a correspondent, you may have 
wondered if your private information would remain private. 
Who else is reading it? Your co-workers? Other subscrib- 
ers? The system programmers? The government? 

Trusting souls who have never felt the slightest concern 
about such matters may read no further; others may be in- 
terested to learn how to protect themselves against such in- 
trusion and theft. This article discusses the construction of a 
strong file encryption system for CP/M, which we call 
ae i 

Several encryption programs for microcomputers are now 
on the market. To our knowledge, however, none of their 
authors has made public the method used or has offered any 
argument to support the claim that the system is indeed se- 
cure. By its very nature, an encryption system is difficult to 
test. In practice, “security” only means that the system has 
been subjected to careful analysis and repeated attack and 
has remained unbroken. 

We describe our system in detail sufficient to allow its 
implementation on most microcomputers. We also make our 
design choices explicit and offer argument to support them, 
so that readers can form their own opinions as to the strength 
of the system. We make no claim of theoretical break- 
through here, only the careful application of cryptographic 
principles. Finally, we offer the design and program code to 
the public, free of any claim of copyright or proprietary 
right. If our system can withstand critical analysis, then the 
public will have an encryption system it can trust. 


Some Cryptographic Basics 
A few definitions are appropriate first. We use the term “en- 
cryption” to refer to the general process of making plain 
information secret and making secret information plain. To 
‘‘encipher”’ a file is to transform the information in the file so 
that it is no longer directly intelligible. The file is then said to 
be in “ciphertext.” To “decipher” a file is to transform it so 
that it is directly intelligible; that is, to recover the 
“plaintext.” 

The two general devices of encryption are “ciphers” and 


by John A. Thomas and 
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‘““codes.”” A cipher works on the individual letters of an al- 
phabet, while a code operates on some higher semantic level, 
such as whole words or phrases. Cipher systems may work by 
transposition (shuffling the characters in a message into 
some new order), by substitution (exchanging each charac- 
ter in the message for a different character according to 
some rule), or by a combination of both. In modern usage, 
transposition is often called “permutation.” 

Shannon referred to substitution as “confusion” because 
the output is a nonlinear function of the input, thus creating 
confusion as to the set of input characters. He referred to 
transposition as “diffusion” because it spreads the depen- 
dence of the output from a small number of input positions to 
a larger number:.! 

A cipher that employs both transposition and substitution 
is called a “product” cipher. In general, product ciphers are 
stronger than those using transposition or substitution alone. 

Every encryption system has two essential parts: an algo- 
rithm for enciphering and deciphering and a “key” that con- 
sists of information to be combined with the plaintext ac- 
cording to the dictates of the algorithm. In any modern 
encryption system, the algorithm is assumed to be known to 
an opponent, and the security of the system rests entirely in 
the secrecy of the key. 

Our goal is to translate the language of the plaintext to a 
new language that cannot convey meaning without the addi- 
tional information in the key. Those familiar with the con- 
cept of “entropy” in physics may be surprised to learn that it 
is also useful in information theory and cryptography. Entro- 
py is a measure of the amount of disorder in a physical sys- 
tem or the relative absence of information in a communica- 
tion system. 

A natural language such as English has a low entropy 
because of its redundancies and statistical regularities. Even 
if many of the characters in a sentence.are missing or gar- 
bled, we can usually make a good guess as to its meaning. In 
contrast, we want the language of our ciphertext to have as 
high an entropy as possible; ideally, it should be utterly 
random. 

Our guiding principle is that we must increase the uncer- 
tainty of the cryptanalysts as much as possible. Their uncer- 
tainty should be so great that they cannot make any mean- 
ingful statements about the plaintext after examining the 
ciphertext; they must be just as uncertain about the key, 
even if they have the plaintext itself with the corresponding 
ciphertext (in practice, it is impossible to keep all plaintext 
out of their hands). 

A prime consideration in the security of an encryption 
system is the length of the key. If a short key (short com- 
pared with the length of the plaintext) is used, the statistical 
properties of the language will begin to “show through” in 
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the ciphertext as the key is used over and over; cryptanalysts 
will be able to derive the key if they have enough ciphertext 
to work with. On the other hand, we want a relatively short 
key so that it can be easily stored or even remembered by a 
human. 

One way to meet these conflicting requirements is to use a 
short key to generate (or cause to be generated) an internal 
key of greater length, which is then used for the actual en- 
cryption. The trade-off here is that the long key must be 
generated by software, and it would seem that any key-gen- 
erating software could be worked backwards to produce the 
rest of a key sequence if part of it is known. We will see that 
this is not necessarily true. 

The other important fact about the keys is that we need a 
huge number of them. If our system allows only 10,000 dif- 
ferent keys, for example, it is not secure. Our opponents 
could try every possible key in a reasonable amount of time. 
Fortunately, methods of generating a long internal key from 
a short external key also lend themselves to the production of 
a large number of different keys. 

Thus, we want our system to be strong, fast, reasonably 
easy to code, and flexible enough to permit us to trade off 
speed for security or the opposite. The system we propose 
should satisfy the needs of the individual user who is con- 
cerned primarily with the storage of information and not 
with its high-speed transmission in large volumes. We as- 
sume also that the encryption is being carried out on the 
individual’s own computer and not by a program running on 
some remote system. 


Some Competing Systems 

With these general considerations in mind, let’s choose a 
specific encryption scheme for small systems. Three candi- 
dates come to mind: the government-sponsored Data En- 
cryption Standard (DES), the new public key systems, or 
some approach to the infinite key cipher. 

The DES is a product cipher using 16 stages of permuta- 
tion and substitution on blocks of 64 bits each. The permuta- 
tion tables are fixed, and the substitutions are determined by 
bits from a 56-bit key.? This short key has caused some ex- 
perts to question the security of DES.3 Also, because the 
system was originally intended for hardware implementa- 
tion, it would be slow in software. 

We are inclined to reject DES merely because it is a stan- 
'dard. A standard cannot be changed for convenience—to 
use, Say, Only part of the transformations to speed up pro- 
cessing or a longer key for additional security. The individ- 
ual user is better off without a standard, since breaking an 
unknown custom-built cipher presents greater difficulties 
for the cryptanalyst. 

The public key cipher is an interesting new development 
that shows potential for making other encryption systems 
obsolete. It takes its name from the fact that the key infor- 
mation is divided into two parts, one of which can be made 
public. A person with the public key can encipher messages, 
but only someone with the private key can decipher them.4 

All of the public key systems rely on certain functions for 
which the inverse is very difficult to compute without the 
information in the private key. These schemes do not appear 
to be practical for microcomputers, at least for 8-bit ma- 
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chines, if their strength is to be fully exploited.» One variety 
of public key system, in fact, has been broken by solving its 
enciphering function,® but this is no reflection on other sys- 
tems, such as the RSA scheme,’ which use different enci- 
phering functions. 

We believe that the most practical encryption method for 
small systems is a product cipher in which the substitution 
mechanism as nearly as possible approximates the infinite 
key cipher. 

The infinite key cipher, also known as the Vernam system 
or the “one-time pad,” is simple in concept. We first gener- 
ate a key that is random and at least the same length as our 
message. Then, for each byte of plaintext, we add the corre- 
sponding byte of the key to give the ciphertext. By “‘add”’ we 
mean some reversible operation; the usual choice is the 
exclusive-or. 

A little reflection will show that, given a random key at 
least the size of the plaintext (i.e., “infinite” with respect to 
the plaintext because it is never repeated), the resulting ci- 
pher is unbreakable, even in principle.’ 

This scheme is in use today for the most secret government 
communications, but it presents a serious practical problem 
by requiring not only a long random key for each message 
but also that the lengthy key be sent to the recipient. Thus, 
the ideal infinite key system is not practical for large vol- 
umes of message traffic. 


A Practical Infinite Key Cipher 

We can design a substitution method that will approximate 
an infinite key by generating the key as we go. Of course, any 
deterministic method of generating a key has, in principle, 
some regularity that an analyst might exploit. However, if 
we make the “work factor” for breaking our system so high 
that it is impractical for our opponents to do so, then it is 
irrelevant that the system may be less strong than the ideal. 

What constitutes an adequate work factor depends essen- 
tially on the number of uncertainties the cryptanalysts must 
resolve before they can derive plaintext or a key. In these 
days of constantly improving computers, that number should 
probably exceed 2!28, 

It is easy to quantify the work factor if we are talking 
about exhaustive key trial, but few modern ciphers are likely 
to be broken by key trial since it is too easy to make the key 
prohibitively large. Most likely they will be broken because 
of internal periodicities and a subtle dependency of output 
on input; these give the cryptanalysts enough information to 
reduce their uncertainty by orders of magnitude. 

Since increasing the work factor for the cryptanalysts also 
increases it for the encryption program, we want to build a 
modular system. That way we can add or remove transfor- 
mation functions to trade off time for security, thus meeting 
whatever threat we reasonably expect. 

We start with the problem of key length. How can we 
obtain a key effectively as long as the plaintext without hav- 
ing to actually specify it, byte by byte? The answer is key 
expansion. 

Suppose we have three short keys, SECRECY (length 7), 
COMPUTER (length 9), and MATHEMATICS (length 11). 
We obtain a longer key by the exclusive-or of these three 
together, byte by byte. That is, S XOR C XOR M equals the 
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first key byte; EXOR O XOR A equals the second key byte, 
and so on. If we reach the end of a short key, we start over at 
its first character. If the key lengths are relatively prime 
(that is, they have no common divisor greater than one), then 
the period of the composite key is equal to the product of 
their periods (7 x 9x 11 = 693). | 

Obviously, we can generate a composite key of any length 
we want by increasing the length of the keys and by increas- 
ing their number. A useful article by Sclawy discusses this 
method and describes a version of it for ASCII files in 
BASIC.” 

Key expansion is not a free ride, however; the effective 
length of the composite key, from the cryptanalytic point of 
view, is actually not as great as the product of the short keys 
because periodicities may appear in the key stream due to 
repeated traversal of the short keys. We can alleviate this 
weakness by simply increasing the size and number of our 
short keys. We can also obscure these periodicities by adding 
transposition. 

Readers familiar with the history of cryptography may 
notice a resemblance between our short keys and the rotors 
of the mechanical cipher machines of World War IT, such as 
the German ENIGMA. The rotor devices are relatively 
strong, but they can be broken, and we have taken their 
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weaknesses into account in designing our system. Hence- 


forth, we will usually refer to the short internal keys of our 


system as “rotors.” 

We now construct a toy encryption system based on this 
principle. If we also want to add permutation to our cipher, 
we must choose some unit or “block” of plaintext over which 
the permutation will take place. Let’s say we choose a six- 
character block. Then we can also perform our substitutions 
over the same number of characters, advancing the rotor 
pointers by six after each block is processed. 

Figure | (below) shows the tables involved. Note the three 
rotors carefully. They are of relatively prime lengths (19, 23, 
and 31), but the first six characters of each rotor of length n 
have been spliced onto the end of the rotor at position n +1. 

Thus, we simply add six to the rotor pointer after each 
block, instead of after every character. This arithmetic is 
modulo the rotor length, so we reset the pointers to the be- 
ginning of the rotor after the sum of the pointer plus six 
exceeds the rotor length. We call the rotor pointers the 
“starts,” since they point to the starting position for the 
substitution. 

Note also the table of numbers in 0..5 called “PERM.” 
This is the permutation table, and it determines how the 
characters in the block are to be transposed. In this example, 
the number 5 is in the Oth position, so character 5 in the 
block goes to the Oth place; 0 is in the Ist position, so charac- 
ter 0 goes to the Ist position, and so on until arriving at the 
permuted result. Here, if the input block is ABCDEF, then 
after permutation the block will be FABDEC. 

Leaving aside for the moment how PERM and the rotors 
are constructed, we can sketch a pseudo-code outline of our 
enciphering function in Listing One (page 54). To decipher, 
we submit the ciphertext to substitution and then perform 
the inverse permutation. Note that deciphering is not the 
inverse of enciphering; we must know which way we are 
going. 

With a larger block size and a few more rotors, this is 
essentially the ENIGMA machine. It is actually a little stron- 
ger, since ENIGMA applied the inverse permutation after 
the substitutions, which made deciphering the inverse of 
enciphering. 


Making the Practical Cipher Strong 

Let’s turn this toy system into a strong one. The most obvi- 
ous enhancements are an increase in the number of rotors 
and the addition of more stages of permutation, consistent 
with a reasonable processing time. We chose six rotors and 
two stages of permutation for our system. The permutation 
occurs after the second and fourth substitutions. 

Next, we determine that our system will operate on bits 
instead of bytes, for both substitution and permutation. 
(This is called “fractionation,” and ciphers using it have his- 
torically been strong ones.) We take 256 bits (32 bytes) as 
our block size and perform all substitutions and permuta- 
tions on such blocks. 

We also want our rotors to be relatively large to achieve a 
long period, so we choose rotors whose lengths, in bits, are 
prime numbers less than 2048 (256 bytes). Specifically, we 
choose rotors of lengths 1789, 1787, 1783, 1777, 1759, and 
1753, giving a composite period of 3.1 x 10!° bits. Choosing 
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prime numbers for the rotor lengths is an easy way to assure 
relative primality. 

There is no reason to apply the same permutation to each 
block if PERM can take on a different arrangement for each 
block. As it turns out, a permutation table can cycle through 
a number of different arrangements before repeating itself. 
Our permutation table, now called BITPERM, consists of 
256 randomly ordered bytes in 0..255, each byte value corre- 
sponding to a particular bit in the block. After each block, 
we will “cycle” BITPERM (see below) to a new position, 
allowing us to process 256 32-byte blocks before the same 
permutation is used again. This increases the period of the 
key stream to 7.9 x 10?! bits. 

In our example, the rotors always step six characters at a 
time. We can easily provide for the rotors to step some arbi- 
trary distance (modulo the rotor size). Our opponents now 
must contend with the fact that each rotor may be stepping 
anywhere from | bit to (rotor size—1 ) bits at a time. Also, we 
can change the order of the rotors for each session, giving 90 
possible significant orderings. 

We have drastically. increased the uncertainties confront- 
ing our opponents, but we must add one further refinement. 
Even though our key stream is very long, we will use only the 
first tiny fraction of it—even for huge files. This is not only 
wasteful but dangerous. If the key stream is always set to the 
same starting point in its sequence, then identical plaintext 
files will produce identical ciphertext files. Even statistically 
similar files will produce similar ciphertext files. This gives 
the cryptanalysts more information about the key than we 
want them to know. 






Use ALL the Power of Your 
MS-DOS, IBM PC-DOS, or CP/M-80 System 
with UNIX-Style Carousel Tools 


CAROUSEL TOOLS are a proven set of over 50 programs 
designed to be used with pipes, redirected I/O and 
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In principle, collecting enough such ciphertext will enable 
them eventually to reconstruct the rotors. To explode this 
possibility, we count the number of blocks we have enci- 
phered and keep this information. Before each new session, 
we check this index and begin enciphering or deciphering 
from that point on. We write out the index as the first record 
of the ciphertext file and read it before deciphering; if enci- 
phering, we save it in a separate file. 

In our system, the index record is one CP/M record, with 
the first nine bytes reserved for the 72-bit index and the 
remaining bytes unused. The index thus describes the start- 
ing point for each rotor and one cycle of the permutation 
table. For example, the particular setting of the permutation 
table will be the residue of the index value divided by 256 
(e.g., the index modulo 256). The starting point for the rotor 
of length 1789 will be the index value times the chosen step 
value modulo 1789, and so forth. 

If two persons are corresponding, one could take all the 
blocks starting at block number 100 million, and the other 
could take all blocks starting at 1000 million. Even though 
they might send many identical message strings, the key 
stream used would always be different. In this way, we ap- 
proach the requirement of the ideal infinite key cipher: that 
the key be used only once. 

Note that we do not encipher the index record. We would 
have to do so at some agreed-upon index value to recover it, 
and this block would be nearly the same from message to 
message, again giving the cryptanalysts too much informa- 
tion. We follow the cryptographic principle: that which can- 
not be deeply hidden should be sent in the clear. This tells the 
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cryptanalysts nothing they would not know if we did not use 
an index, since they would then know from the algorithm 
itself what the starting points were. 


Constructing the Keys 

This design implies that we must construct six random tables 
of bits for the rotors, with the initial 256 bits spliced onto the 
end of each rotor. (We designed our rotors so that the rotor, 
plus the splice, occupies 256 bytes or less.) We must also 
construct the permutation table of 256 random bytes. 

In a sense, these tables constitute our key, since the key 
stream used for encryption is derived from them. It is obvi- 
ously impractical for us to enter the tables each time we wish 
to send or read a message. We would prefer to enter some 
manageable “user key” that would cause the tables to be 
generated. We could, of course, have no user key at all and 
just make the tables a fixed part of the algorithm. But even- 
tually the tables would be compromised, and they are not 
easily changed. 

A convenient solution, which we carefully considered, 
would be to use a software random-number generator to cre- 
ate the tables. The user key could then be the seed for this 
generator. Common ways of generating random numbers, 
such as the linear congruential method, are constructed so 
that the next random number is generated by transforming 
the preceding random number.!° If one part of the sequence 
is known or correctly guessed, then all of the sequence can be 
computed. 

We believe that this can be circumvented by constructing 
a generator of very large word size, say 96 bits, and using 
only the most significant 8 bits for the output. We do not see 
how such a generator could be worked backwards, but a 
comment by Knuth in one of his exercises suggests that it 
can be, at least for smaller word sizes.!! 

We finally decided to abandon linear random-number 
generators entirely when we realized that we had a good 
nonlinear generator in the encryption system itself. If we 
have already constructed a set of genuinely random tables, 
we can take the user key, or a part of it, as a plaintext block 
that we then encipher using the predetermined rotors. The 
enciphered block replaces the first 32 bytes of the first rotor, 
and we encipher the just-enciphered block again; this time, 
however, the first rotor is different, having just been altered. 
We place the newly enciphered block in the second 32 bytes 
of the rotor and continue until we have filled all six rotors 
and the permutation table, thus replacing them entirely with 
new random values. 

This self-modifying feature makes the new tables, which 
we call the “pro tempore” tables, depend on the user key in a 
very complex way. The pro tempore tables are the ones actu- 
ally used for enciphering and deciphering, after having been 
properly spliced. 

To guarantee that the output of this process is random, we 
must be sure that the predetermined tables are also random. 
Here is a cheap but effective method of doing so. To create 
the permutation table, begin with a bag of lima beans, a fine- 
point indelible ink pen, a bowl, a fork, and a tablet of paper. 
Carefully number 256 beans with the digits 0 through 255. 
As you number the beans, lay them out systematically before 
you on a flat surface in 16 rows of 16 columns each. This way 
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you can check that all numbers from 0 to 255 are present and 
that no numbers are duplicated. Place the numbered beans 
in the bowl and stir well with the fork. Without looking in the 
bowl, select beans one by one and record their numbers on 
the pad. Do not put the beans back in the bowl. The resulting 
table is the predetermined permutation table, which we call 
RANDP in our program. 

The procedure for constructing the rotors is similar, but 
this time you must mark 64 beans with | on one side and 0 on 
the other, like the heads and tails of a coin. Stir these 64 
beans with the fork and, again without looking, draw them 
out one by one and place them in a row. Record the resulting 
bit pattern and put the beans back in the bowl. Stir well 
again and repeat the process until you have all of the bits for 
the rotor in question. 

Take the first 256 bits and write them down following the 
rotor bits. Divide the bit stream up into blocks of 8 bits and 
compute the hexadecimal value of each. This will give you a 
table of hex values that you can enter with an editor. Repeat 
this process until you have constructed all six rotors. This is 
tedious and requires meticulous work, but you must do it to 
guarantee genuinely random tables. 

We decided upon three user keys, each of which may be 
between | and 75 ASCII characters in length. Since there are 
25 printable ASCII characters, the user keys with the ASCII 
bias removed are considered as numbers in base 95 notation. 
We convert these numbers to binary (base 2) and pass them 
to the encryption functions. 

We use one of the user keys as the initial plaintext in the 
table-generation process described above. The other user 
keys determine the stepping distances and the starting posi- 
tions for the rotors during the generation phase and the step- 
ping distances for the encryption session. The starting points 
for the session, of course, are determined by the index 
record. 


The Program 

We wrote our program in Z80 assembly language, using the 
Digital Research RMAC relocating assembler. This assem- 
bler uses the Intel mnemonics for the 8080 instructions and 


macros for the Z80 instructions. Where the macros differ 
from the Zilog mnemonics, we supply a cross reference. 

We would have preferred to write these routines in a high- 
level language, but the amount of time taken by the intensive 
bit manipulation precluded that. The listings that follow de- 
scribe the encryption functions only; we omit the part of the 
program concerned with collecting the user keys and file I / 
O, since this code is straightforward. 

First consider the module PARAMS (Listing Two, page 
55). Here are the six rotors, the permutation tables, and 
storage for the starts, steps, rotor lengths (hereafter called 
the “rotor moduli” because of their use in computing the 
starts and steps), and user keys. The table I6, which deter- 
mines the order in which the rotors are taken, will be shuf- 
fled into some random permutation. We extract 32 bytes of 
text from the file buffer, place it in BLOCK to be enciphered 
or deciphered, and then move it back to the buffer. 

Note that most of these data areas must be assembled and 
linked so as to reside on a page boundary. For this extra 
effort, we earn an appreciable gain in speed in the permuta- 
tion routines. 

Note also the three tables BITPERM, RANDP, and 1256 
BITPERM is the table consulted by the bit permutation rou- 
tines, but it is uninitialized at startup. BITPERM is con- 
structed by a routine called CYCLE (described below) before 
generation of the pro tempore rotors begins, and it is recon- 
structed from RANDP after each block. After the initializa- 
tion process, RANDP is replaced, just as the predetermined 
rotors are, but it is replaced by shuffling the ordered table 
[256 according to 256 random bytes generated at initializa- 
tion. We cannot simply fill RANDP with random bytes, since 
it can contain no duplicates. 

KEYGEN (Listing Three, page 58) controls the startup 
process just described. It first calls UPTACK (described be- 
low) to convert the user key to a binary number and then 
reconstructs the tables by repeated encipherment. After 
KEYGEN finishes its work, we call INIT (Listing Four, page 
66), which uses the index information to set the permutation 
table and the rotor starting positions to their correct places 
for this particular point in the key stream. We are finally 
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ready to encipher or decipher a file. 

ENCIPHER (Listing Five, page 69) and DECIPHER (List- 
ing Six, page 71) control the sequence of substitution and 
permutation on each block of text. Note that ENCIPHER 
takes the rotors in the order determined by [6. It calls EX- 
TRACT to take 256 bits from the rotor in use, beginning at 
the current starting point, and to place them in the WORK 
common area. It calls SUBSF to perform the substitution on 
each block and calls PERMF to permute the bits in the block 
after the second and fourth substitution. Finally, it calls 
NXTBLK, which increments the index by one, steps the ro- 
tors to the next starting position, and sets BITPERM to its 
next permutation. 

DECIPHER is similar. We take the rotors in the reverse 
order and call the inverse substitution and permutation func- 
tions, SUBSG and PERMG. (By mathematical convention, if 
“F” is a function, then “G” is its inverse. ) 

The substitution functions, SUBSF (Listing Seven, page 
74) and SUBSG (Listing Eight, page 75) are simple. We 
chose to perform substitution modulo 2°¢ instead of modulo 
2 (the exclusive-or); that is, we just add 32 bytes, discarding 
the final carry, for forward substitution and subtract 32 
bytes without a final borrow for the reverse substitution. 

With exclusive-or, cryptanalysts can narrow the possibili- 
ties for the key if they know the plaintext and ciphertext (i.e., 
if the ciphertext bit is 0 and the plaintext bit is 1, then the 
key bit must have been a 1, and so on). Addition mod 27°° 
spreads the uncertainty over the entire block, since the crypt- 
analysts don’t know if there was a carry from byte to byte or 
not. 

PERME (Listing Nine, page 76) and PERMG (Listing 
Ten, page 78) are the bit permutation routines, PERMF be- 
ing the forward permutation and PERMG being its inverse. 
These routines may interest the reader quite apart from their 
cryptographic use in our program. Since hardware designers 
have not seen fit to give us machines with bit addressing, 
manipulations at the bit level are awkward at best. Even so, 
bit permutation is not difficult, if you define the problem 
correctly. 

These routines address bits in one special case: a bit 
stream where bit 0, the first leftmost bit, is aligned on a byte 
boundary. We can imagine the bits in the stream as being 
indexed with subscripts from 0 to n from left to right. The 
general subscript is i, so that we can talk of the ith bit, and i 
is always a base 2 integer. 

The trick used in these routines is to imagine the bit 
stream not as a vector but as a matrix consisting of x rows 
and y columns. Every byte is one row beginning with row 0. 
Every y is a bit within a row. There are 8 bits within each row 
subscripted from 0 to 7, left to right. To address the ith bit, 
we convert the vector index 7 to the matrix coordinates x,y. 

APL fans will recognize this as the ‘“‘encode” function with 
index origin zero. The actual computation is almost effort- 
less because the modulus of the column coordinate y is an 
integral power of 2, so we merely shift the binary integer / to 
obtain x and y, giving us the byte and bit coordinates of the 
desired bit. 

For illustration, let i be 115 decimal, which is 01110011 
binary. Imagine this number now as an ordered pair (x,y) 
with a demarcation after the third bit from the right: 
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01110:011 


To the left of the demarcation is the binary value of x, and 
to the right is the value of y; in other words, the 15th byte, 
3rd bit, corresponds to the 115th bit. Since most computers 
allow byte addressing, and even bit addressing by one means 
or another within a byte, this trick permits general bit ad- 
dressing with a minimum of computation. 

We now describe what we mean by “forward” and “in- 
verse” permutations. Suppose BITPERM contains the byte 
values 57, 15, 21, ... 173. The forward permutation 


mt hp os ey 
Oo AE oe 


175 
259 


means put the 57th bit in the Oth position, the 15th in the Ist, 
and so on to the 173rd bit in the 255th position. The inverse 
permutation means put the Oth bit in the 57th position, the 
lst bit in the 15th, and so on. 

The inverse permutation is about one-third faster than the 
forward permutation. This seems surprising until you realize 
that testing the bits for on or off is cheap in the inverse 
permutation but unavoidably expensive in the forward. 

We have optimized PERMF and PERMG for speed, so they 
are not exactly models of structured programming. This is 
justified since most of the computation time required by 
TNT is spent in these two routines. Thus, we have required 
the operands for the permutation to be aligned on page 
boundaries to save instructions needed for byte addressing. 
This way, 8-bit registers alone can compute effective ad- 
dresses. Also, we reach subroutines by jumps instead of by 
calls and returns. 

CYCLE (Listing Eleven, page 81) is deceptively simple, 
but the concept behind it is abstract and perhaps unfamiliar 
to the reader; cryptographically it is critical. RANDP Is a 
random permutation of the byte values 0..255, but RANDP is 
not a permutation list familiar to most programmers. It be- 
gins (in our example) 57, 15, 21, ...173. This does not mean 
“take the 57th element and put it in the Ist position.” Rath- 
er, RANDP is a permutation in cyclic notation, denoted (57 
15 21, ... 173).!2 This cyclic notation means “take the 15th 
element and put it in the 57th position, then take the 2Ist 
element and put it in the 15th, and so on until you take the 
57th element and put it in the 173rd position.” 

For simplicity, and at the expense of some cryptographic 
strength, we have chosen one cycle of degree 256—that is 
what CYCLE is designed for. But CYCLE could be extended 
to handle N cycles of different degrees. Some good two-cycle 
lengths for TNT are 148 and 107, 167 and 87, and so on. 
These lengths are primes whose sum is 256. A good four- 
cycle sequence is 83 73 53 47. Again, these are primes that 
add up to 256. 

Were we to use two or more cycles, say m and n, against 
RANDP, we would take the first m elements of RANDP as 
the first cycle, the next 1 elements as the second, and so on. 
For example, if our cyclic sequence were 83 73 53 47, the 
first 83 elements would be the first cycle, the next 73 ele- 
ments the second, the next 53 the third, and the last 47 the 
fourth. 
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Why use cyclic notation? The cryptographic advantages 
in control and key length are great. The “order” of a permu- 
tation is defined as the least common multiple of the degrees 
of its cycles. The order means how many times the same 
permutation can be used to repeatedly permute something 
before that something permutes back to its starting arrange- 
ment. That is the whole idea cryptographically: we want to 
use the same thing (a permutation) repeatedly, but each 
time we want a different result. We also need to quickly 
compute what the Nth arrangement will be so that we can 
continue encryption of the next file where we left off from 
the previous file. Cyclic notation is perfect for this. 

CYCLE uses RANDP to generate 256 different BITPERMs. 
If we used the cycles 149 and 107, we would generate 15,943 
BITPERMs. By using more permutations in TNT, with well- 
chosen cycles, and staggering them, we could achieve thor- 
ough bit mixing with long periods. 

We have restricted CYCLE to handle only one cycle of 256 
elements, since we can quickly compute the position of the 
cycle by taking the index mod 256, which is just the least 
significant byte of the index. More time would be needed if 
we had to compute the residue of several prime cycles. Once 
we get the cycle position, we use it to shuffle RANDP into 
BITPERM. If the result is 0, then byte 57 (the Oth byte) of 
RANDP goes to byte 57 of BITPERM, byte 15 of RANDP 
goes to byte 15 of BITPERM, and so on. If the result is 1, then 
byte 15 (the Ist byte) of RANDP goes to byte 57 of BIT- 
PERM, byte 21 of RANDP goes to byte 15 of BITPERM, and 
so on. 

UPTACK (Listing Twelve, page 82) converts a number 
represented in one base to a base 2 number. (“‘Uptack” is the 
informal name for the APL ‘“‘decode” function.) Its argu- 


ment is a byte string whose elements represent the number n 
in any base from 2 to 255. For example, suppose n is a base 
10 number consisting of m digits. Then the argument is m 
bytes consisting of binary values ranging from 0 to 9. UP- 
TACK’s second argument is the base. In TNT the base is 
always 95, but we have written the routine to handle the 
general case. 

The algorithm is simple number theory. First zero an ac- 
cumulator. Then add the most significant digit to it. If there 
is another digit of n, multiply the accumulator by the base 
and add the next digit in. Continue until the digits of n are 
exhausted. 

UPTACK has a subtle purpose: it is meant to make the use 
and maintenance of the user keys easy. Key maintenance 
and security are dependent on the user’s resources. The most 
secure keys are those that are utterly random, but such keys 
cannot possibly be remembered and so must be recorded. 
This means that the user must provide physical security to 
guard the keys, an expensive business possible for govern- 
ments and large corporations but not for the average citizen. 
Individual users cannot have recorded keys and still feel se- 
cure since such keys can be stolen or seized under legal 
process. 

We therefore want keys that can be easily memorized. 
Any key that can be memorized, however, tends to be cryp- 
tographically weak; your opponent may guess it or find it by 
exhaustive search. Suppose you use an English word of eight 
characters or fewer. It would be easy to try all such words 
from a dictionary in a reasonable amount of time. 

A good user key, then, should be long, have no connection 
with you, and not be available to the opponent in any pub- 
lished work. Poetry is fine, but compose it yourself! UPTACK 
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helps out here because it allows you to think of a key in 
human terms, even though it is just a random bit stream to 
the encryption program. Protection of the user keys is so 
important that most of the TNT code is occupied with it. 

The other support routines, not shown, are: 

(1) EXTRACT, which extracts 256 bits from a rotor begin- 
ning with the nth bit to the nth + 256. On call, HL addresses 
the bit stream input on a page boundary, and DE holds n. On 
return, HL addresses the extracted bits aligned on a byte 
boundary in the WORK common area. | 

(2) RESIDUE, which returns the residue of an 88-bit num- 
ber divided by a 16-bit number. On call, DE holds the divi- 
sor, and HL addresses the dividend. On return, DE holds the 
result. 

(3) SHUFFLE, which sets up the permutation table, BIT- 
PERM, by shuffling the ordered array, 1256. On call, BC 
addresses RANDP, DE addresses the workspace BITPERM, 
and HL addresses 1256. On return, DE addresses BITPERM. 

(4) SPLICE, which splices the first 256 bits of a rotor onto 
the rotor after the n— 1 bit of the rotor. On call, BC holds n 
(the rotor size), and HL addresses the rotor. 

(5) NXTBLK, which prepares the program for encryption 
of the next block. It advances the index value by one, ad- 
vances each start by its corresponding step, and sets BIT- 
PERM to its next cycle. 7 

(6) RIPLO, which merely sets the WORK common area to 
zero. 


Conclusion 
At the beginning of this project we wondered whether a pro- 
gram requiring so much bit manipulation would be practical 
on an 8-bit microprocessor. We are pleased to report that the 
program runs rapidly and could probably be strengthened 
further without an unreasonable increase in processing time. 
Figure 2 (page 52) summarizes the results with TNT run- 
ning on a 4-MHz Z80. About half of the total time is used by 
the bit permutation routines. We also tested the ciphertext 
files for statistical randomness, using the methods suggested 
by Ruckdeschel.!3 Figure 2 shows the results of several tri- 
als. The output appears to be completely random and inde- 
pendent of the input, even with plaintext files containing 
only zeroes or only ones. You must understand that a ran- 
dom output is only a necessary requirement for a strong 
encryption system, not a sufficient one, but we are delighted 
with the results anyway. 
We feel we have satisfied the basic requirements for a 
strong encryption system: 
(1) A large key space 
(2) A long, practically infinite key period 
(3) A random key stream and a random ciphertext 
(4) No apparent dependency of output on input 
(5) A good combination of substitution and permutation 
(6) A user key that is convenient but not easily compromised 
We can think of several ways TNT could be improved. 
Huffman encoding of the plaintext files before enciphering 
would provide a substantial increase in speed for large files. 
For greater cryptographic strength, consider the improve- 
ments to the permutation routines suggested in the discus- 
sion of CYCLE. More rotors are always good, if you can 
stand the extra time. With a 16-bit machine, the possibilities 


Dr. Dobb’s Journal, August 1984 


get even more interesting. If you decide to implement TNT 
yourself, construct your own tables. 

For readers interested in seeing TNT run, we will send a 
standard 8-inch single-density disk containing the object 
code, all source files, and documentation to those who send 
$25. It is traditional in introducing a new encryption system 
to issue a challenge cipher, and we include one on the disk. 
Our plaintext is an excerpt from a news story discussing 
government threats that persons interested in cryptography 
had better cooperate with the intelligence agencies or else.!4 
We present the corresponding ciphertext, which, of course, 
includes the index record, and we challenge the reader to 
solve for the pro tempore rotors and RANDP. For a bonus, 
determine the natural language user keys. This provides you 
with everything a cryptanalyst could hope for, but if TNT 
cannot resist solution here, it will not have much practical 
value. We welcome your comments and suggestions. 
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Reader Ballot 
Vote for your favorite feature/article. 
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File Encryption (Text begins on page 44) 
Listing One 


/AKKKKKKEK EKA KK EKER RERKERK KERR KKK EEK ERK ARK EKRKAEKKEKKEE EEE 


x x 
x PSEUDO-CODE OUTLINE OF SIMPLE ENCIPHERING FUNCTION. x 
x WE ASSUME: x 
X i. BLOCK, PERM, ROTORS AND STARTS ARE EXTERNAL x 
¥ TO THIS PROCEDURE, ¥ 
¥ 2. BLOCK, PERM AND THE ROTORS ARE ALREADY x 
¥ CONSTRUCTED, AND, x 
¥ 3. THE STARTS ARE INITIALIZED. x 
x x 
XK x 
¥ Pf 


JOO OOOO ICIS SISI IOI AISI GIO / 


ENCIPHER: 
PROCEDURE (BLOCK) ; 


DECLARE 
BLOCKES64 CHAR, /* THE INPUT TEXT */ 
PERMC&4 CHAR, /* THE PERMUTATION TABLE */ 
ROTOROC25] CHAR, /*% THE SPLICED ROTORS &/ 


ROTORIC291] CHAR, 
ROTOR2Z£353 CHAR, 


LENO INT INIT(19), /*% THE ROTOR LENGTHS %/ 
LEN1 INT INIT(23), 

LEN2 INT INIT(29), 

STARTO INT, /* ROTOR STARTING POINTS */ 
START 1 INT, 

START2 INT, 

WORKL 6] CHAR, /% SCRATCH SPACE *%/ 

I INT; /*% INDEX */ 


/* PERFORM THE PERMUTATION ¥/ 


WORK = BLOCK; /* COPY BLOCK TO WORK x/ 
FOR I = 0 TO 5; 

WORKCI] = BLOCKCPERMLII1; /% EXCHANGE EACH CHAR x/ 
END FOR; 


BLOCK = WORK; /* PLACE RESULT IN BLOCK */ 


i* 
PERFORM SUBSTITUTION WITH EACH ROTOR. 
HERE, "+" REPRESENTS ADDITION MODULO SOME N FOR 
THE & CHARACTERS; IF N = 2 THEN THIS IS THE 
EXCLUSIVE—-OR. 


x/ 
BLOCK = BLOCK + ROTOROCSTARTO]; 
BLOCK = BLOCK + ROTORICSTART1I4;5 
BLOCK = BLOCK + ROTOR2CSTART24; 


/* ADVANCE THE STARTING VALUES FOR NEXT BLOCK X/ 
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STARTO 
STARTI 
START2Z 


(STARTO + 6) MOD LENO; 
(START1 + 6) MOD LEN1; 
(START2 + 6) MOD LEN?: 


RETURN (BLOCK); 


END ENCIPHER; 


Listing Two 


End Listing One 


5 RREKEAA RAK AERA AERA AKER AKER REAR AEA AKER KERR KKK EERE KEES 


28 ‘an we ‘ee 


‘a0 ‘an ‘We 


PARAMS: A block of storage for the various parameters 
used by the encryption program. This block must 
be linked so as to reside on a page boundary. 
Most of these areas are accessed by pointers, not 
by their common names; the "common" definition is only 
to allow page alignment. 


ae Se ‘(eR 


‘28 a Wwe we 


5 KER ERA ERE AKA RK AKK AKA AERA EKER ARERR K AEE KAKA KEKKAKEKEREKERE: 


DSEG 


COMMON 
BLOCK DS 


DS 


COMMON 
WORE. DS 


Ba 


COMMON 
ROTORO DBE 
DR 
DE 
DE 
DE 
DE 
DR 
DE 
DB 
DR 
DE 
DE 
DR 
DRE 
DB 
DE 
DEB 
DEB 
DE 


/BLOCK/ 

ware sholds the block of text to be 
s°--transformed by the encryption 
5*.-process. 

224 sskip to next page 

/WORK / 

Re as swork space used by various 
s--routines 

Pa ti ;Sskip to next page 
sthe following rotors consist of 
s--bits generated by a process 
s5--known to be truly random 
s*2«With replacement 

/ROTORO/ 


107, 97,132,125, 141,82, 167,197, 158, 229, 166, 29, 66 
179, 22, 139, 240, 90, 117, 254, 137, 142, 130, 2274, 162,53 
155, 104,114,51, 142, 244, 23, 43, 144, 187, 189,134, 42 
49,163, 91,152, 141, 15167111, 136, 135; 230, 136,120 
31,236, 131,159, 69, 94, 173, 107, 66, 105, 22, 109, 2, 235 
124, 232, 165, 228, 212, 45, 213, 141,195, 13,140, 149,105 
158, 165, 206, 91,192, 210, 75, 110, 216, 175, 198, 250,0 
181,46, 169, 208, 194,114, 238, 88, 210, 250, 145,50, 106 
247,128,139, 61,132, 230,83, 7, 246, 66, 133, 244,197,446 
103, 243, 212,170, 39,72, 157, 18, 118, 198, 88, 66, 187, 34 
88, 239, 217, 232,5,131,51,199, 107,88, 175, 166, 20,58 
255,81, 204, 70,83, 150, 109, 210, 120, 165, 248, 38, 49, 180 
112,237,148, 245, 107, 32, 23, 82, 1350, 223, 124, 226, 228,129 
129,61, 210,56, 98, 52, 243, 174, 142, 219, 123,947, 25,11 
127,23, 166,109, 203, 139, 59, 208, 136, 23, 102,116,112 
121,237, 29,9, 138, 122, 20, 92, 188, 31, 153,79, 102, 52,136 
178, 165,12, 221,56, 254, 2035, 91, 12, 35, 236, 106, 149, 62 
44, 247,45, 48, 234, 21,152, 180,95, 130,211,175, 244, 76 
116, 23,5,17,172, 219,67, 145, 156,119,140 


(continued on next page) 
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File Encryption (Listing continued, text begins on page 44) 
Listing Two 


ROTORI 


ROTOR? 


ROTORS 


ROTOR4 


ROTORS 


RANDP 


BITPERM 


56 


COMMON 
DB 
DB 


DB 
DB 
COMMON 


DEB 
DB 


DB 
DE 
COMMON 


DB 
DB 


DB 
DB 
COMMON 


DB 
DB 


DB 
DB 
COMMON 


DB 
DR 


DB 
DE 


COMMON 
DB 
DE 


DB 
DE 


COMMON 
DS 


sThe remaining rotors are not 
3;--shown completely. Of course, 
s..e@ach has 256 random values. 
fROTORI/ 
177, 238, 109, 128,55, 20, 169, 122, 87,56, 108, 47,156 
113, 212,11,81, 246, 185, 69, 33, 29,105, 77,135, 110 


13, 135, 244, 206,58, 129,106, 62, 
176, 237,199, 70, 18,172, 21,641, 


215,40, 164, 35,172,233 
255 


/ROTOR?/ 
104, 166, 98, 251, 237, 91, 132,51, 97,57, 121, 212, 210, 235 
13,215, 104, 176,75, 144,87, 76, 42, 169,197, 11, 224, 165 


96,151, 32,174, 152,85, 83, 138, 23,193, 75, 243,156,119 
184, 237 


/ROTORS/ 
178, 17,130, 
Al; 


147, 234, 183, 242, 38, 221, 88, 255, 34, 234 
236, 112, 126, 233, 175, 188, 198,89, 22, 161, 151,89 


2749,19,110,172,127,146,117, 70, 246, 56,635, 116,215, 222 
94, 44, 139,80, 203,172,227,41, 157, 231, SI, 2otyOls 169 


/ROTOR4/ 
145,99, 204, 93, 181,0, 29,191, 66, 104, 100, 107,152 
249, 180, 183, 190, 159, 84,59, 206, 225, 60, 115, 203 


157,194, 120, 231, 150,15, 20,58, 164, 220, 1,100,141 
55,258, 238 


fROTORS/ 
45, 76,195, 139, 23,99, 34, 35, 233,59, 81, 46, 240, 256 
138, 228, 25, liz, igi, 239, 189,37, 232,156, 188,21, 178 


222,146, 244,78, 94,10, 217,33, 219, 203, 135, 135, 211, 38 

tte Late eu 
sthe following table describes 
s..byte values generated by a. 
3--process known to be truly random, 
3; --without replacement 

/RANDP / 

57,15, 21, 125, 40,138, 197, 120, 3, 74, 2352, 251, 259 

87,49, 121, 208, 142,170,195, 198, 206, 237, 233,66, 79 


199, 154,177, 56, 98, 217, 126, 97,114, 210, 70, 222, 203,43 
11,100, 157, 28, 79, 178, 6, 145, 155, 99, 181, 169, 253,173 
/BITPERM/ 
256 


sholds the permutation table 
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Ié 


GUARD 


INDEX 


STEPO 
SIEPI 
StEra 
STEPS 
STEP4 
SrEPS 


STARTO 
STARTi 
START? 
STARTS 
START4 
STARTS 


MODO 
MOD1 
MOD2 
MODS 
MOD4 
MODS 


LENKYi 
KEY1 
LENKY2 
KEY2 
LENKYS 


KEYS 


COMMON 
DE 
DB 


DE 
DE 


COMMON 
DB 


COMMON 
DB 
COMMON 
DS 


COMMON 
DS 
DS 
pS 
DS 
DS 
DS 


COMMON 
DS 
DS 
DS 
DS 
DS 
DS 


COMMON 
DW 
DW 
DW 
DW 
DW 
DW 


COMMON 
DS 
COMMON 
DS 
COMMON 
DS 
COMMON 
DS 
COMMON 
DS 
COMMON 
DS 

END 


f1256/ 


;Ordered array to shuffled 
;..into BITPERM 


GO, 1, 2355 4,5,6, 7,6,9. 105318, 12, 13294, 15,14, 17,18 
19, 20, 21,22, 23, 24, 25, 26, 27, 28, 29, 30, 31,32, 33,34 


243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254 


2g 


/16&/ 


0,1, 2;3:4.5 


fGUARD/ 


o,0 


/INDEX/ 


9 


/STEPO/ 


NON RN BN 


/STARTO/ 


MND PON RD ON 


fMODO/ 
8737 
17S 7 
1783 
oe F 
1739 
1733 


/LENKY1/ 


i 
/EKEYI/ 
72 


f/LENKY2/ 


1 
fKREY2/ 
va 


/LENKY3/ 


1 
/KEYS/ 
7 
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sfollowing areas need not be 
3--aligned on page boundary 


;Ordered array to shuffle for 
3;--rotor choice 


Guard bytes for multiply overflow 
35--from INDEX 

sthe file index, which counts the 
3;--number of blocks which have 
3--been encrypted. Initially it 
s--holds a user key, which is used 
s--to generate the tables for the 
3 --Se@S510n. 


sthe stepping distances for the 
3-.-rotors 


sthe starting bit for rotor 
s--Stepping and key extraction 


srotor moduli 


sstores length of user key entered 


suser key with ascii bias stripped 


End Listing Two 
(Listing Three begins on next page) 
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File Encryption (Listing continued, text begins on page 44) 
Listing Three 


0 Se eS 
‘au 


KEYGEN: Generate the pro tempore, or session keys, from ; 

; the user keys. The pro tempore keys are: 4 
; the six rotors, ROTORO — ROTORS, ; 
; the permutation table, RANDP, : 
: the rotor steping distances, STEPO — STEPS, ; 
; the rotor starting bits, STARTO — STARTS, and, ; 
: Ié, the ordering index for rotors, starts, ; 
: steps and moduli. 5 
3 b 
- We use LENKYi and KEY1 to derive a tempory index ; 
: and I6, ; 
$ LENKY2 and KEY? to derive the rotors and the : 
$ starts, and, ; 
; LENKYS and KEYS to derive the steps and RANDP.  ; 
5 3 
: Macro Zilog 5 
; LXIX nn LD IX,nn j 
= JRC nn JR Cy,nn 3 
; ol By A en 5 LD. (ixtn) : 
: INIX INC IX ; 
ae are ae a ae ee ee ee ne ee Ma TL Te, co Ne ees ee TO ge 4 

CSEG 

MACLIB Z80O 

PUBLIC KEYGEN 

EXTRN UPTACK, RESIDUE, ENCIPHER, CYCLE, SHUFFLE, SPLICE 

EXTRN IOBUFF 
KEYGEN: 

PUSH PSW 

PUSH B 

PUSH D 

PUSH H 

LDA LENKY1I sconvert keyl to base 2 

MOV B.A slength in B for UPTACK 

MV I A, FS skey 15 in base 975 

LXI H,KEYi 

CALL UPTACK 

Laue D,KEY1 sthen move converted number 

ixt = PO s.--back to KEY1 space 

LDIR 

i DA LENKY2 sconvert key2 1n same manner 

MOV BLA 

MMVI A, 9S 

LXI H,KEY2 

CALL UPTACK 

LXI D,KEY2 

LXI a 

LDIR 
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LDA LENKYS s-e-and key3 also 
MOV BLA 
MV I A,95 
LXI H, KEYS 
CALL UPTACK 
LXI D,KEYS 
LXI B,32 
LDIR 
LXI D, GUARD+1 ;Clear INDEX for use by RESIDUE 
LXI H, GUARD 
XRA a 
MOV M.A 
iXI BR,10 
LDIR 
sset up the rotor starting bits 
LXIX STARTO 3--to whatever the user key 
LXI H, KEY2+20 3$--specified, but adjusted to 
LXI D,MODO 3--90 <= STARTCII < MODIII 
CALL GETRES 
;5et up the rotor step values 
LXIX STEPO 3--to whatever the user key 
i H, KEY3+20 3-.-Specified, similarily 
LXI D,MODO s-e-adjusted, but > 0 
CALL GETRES 
3if any step = 0, force it to i 
LXI H, STEPO 
MVI BR. 
TOILOOP: 
MOV Ei sget the two-byte step 
INX H 3-eto DE 
MOV DM 
MOV A,E scheck it for zero 
ORA D 
CZ SETTOI ;set it to 1 if so 
INX Hi 
DINZ TO1ILOOP 
;set up a temporary index 
LXI D, INDEX 
LXI H, KEY1+23 
LxI B,9 
LDIR 
sset up BITPERM to Ith iteration 
i DA INDEX+8 s--by index mod 256 
LXI H, RANDP 
ixi D, BITPERM 
CALL CYCLE 


. 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
a 


5 The encryption parameters are now set up per the 

: user keys. We will use this setup as a random 

: number generator to create the pro tempore rotors, 
5 permutation table, starts and steps actually used 
;s for the file encryption. 


2e wa ‘ee 


(continued on next page) 
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File E ncryption (Listing continued, text begins on page 44) 


Listing Three 


LXxi 
LXI 
iXI 
LDIR 
LxI 
MV I 


FILLROTORS: 


CALL 
LXI 
PUSH 
LXI 
LDIR 
POP 
DINZ 


LXI 
LiKE 
LAT 
LDIR 
ixXI 
MVI 


FILLRANDP: 


60 


CALL 
LXI 
PUSH 
ixi 
LDIR 
POP 
DJINZ 


LXI 
LxI 
LXI 
CALL 


LXI 
LXI 
L_xI 
LDIR 
LXxI 
MVI 


D, BLOCK 
H, KEY? 


D, ROTORO 
B,48 


ENCIPHER 
H, BLOCK 
B 

B, 32 


B 
FILLROTORS 


D, BLOCK 
H, KEYS 
BL 32 


D, IOBUFF 
B,a@ 


ENCIPHER 
H, BLOCK 
E 

B,32? 


B 
FILLRANDP 


H, 1256 
B, IOBUFF 
D, RANDP 
SHUFFLE 


D, BLOCK 
H,KEY1 
BR, 32 


D, IOBUFF 
B,8 


sfirst, create the rotors 
3;.-by repeatedly enciphering 
3;..-sSecond user key 


s;do 48 blocks to fill the rotors 


sencipher the block 
3;..and move it to the rotor 


sleaves DE = DE + 32 


sThe rotors aren’t completely 
3--fixed yet. This must wait 
s;..-until I6 is generated, 
s..5ince it controls the order 
s..-oOf rotors, etc. 


snext generate pro tempore RANDP 
smove key3S to encryption block 


suse i/o buffer as scratch space 
sencipher 8 blocks 


sencipher the block 
s;..and move it to scratch area 


scall SHUFFLE to replace RANDP 
saddress ordered table 
saddress 256 random bytes 


snow RANDP is different than 
;.-the permanent RANDP 


snow generate 16 
smove keyl to encryption block 


suse i/o buffer as scratch space 
s;do 8 blocks 


(Continued on page 62) 
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TAKE CONTROL 
WITH ULTIMATE CONTROL 


GREP .C 


The UNIX regular 
expression recognizer 


—_MAIN 


Don’t you wish you could alter your word 
processor to fit your needs, move it to a new 
system, or upgrade it whenever you wanted? 


Your problems are over. The ULTIMATE 
CONTROL Word Processing book contains: 


(1) a complete editor 

(2) Cross reference generator 

(3) Word count 

(4) Multi file corrections facilities 

(S) Text file organizer 

(6) complete formatter 

(7) all source code (most in Basic) 

(8) design document, installation guide and 
operator instructions 

(9) and much, much more. 


El fo for-Tael-> der-Tak-yo) sme 
pipes for Aztec C 


All programs come with complete source _ 
code, in C» Price: $35 each; $50 together. ae 


For more information 
or complete catalogue: | 
SOFTWARE ENGINEERING CONSULTANTS: 
PO. BOX 5679 


ALL OF THIS IN A BOOK FOR JUST $24.95. ee : 
BERKELEY, cA 94705 ie 


Ask for it at your local computer or book store, 
or write to: 


MCDERMOTT COMPUTER SERVICES 


12 Manor Haven Road 
Toronto, Ontario, M6A 2H9 


Mail orders should include $3.00 for shipping. Cheque, or 
money order (No C.O.D.). 


5). | 548- 626 5B al 





Circle no. 36 on reader service card. Circle no. 59 on reader service card. 


HOW FAST WOULD THIS PROGRAM RUN 
IF 1T WERE COMPILED USING YOUR PASCAL COMPILER ? 


PROGRAM SIEVE: Chances are, not as fast as it would if it were compiled 














PRE Wee “90 As the following benchmarks show, SBB Pascal 
VAR |, PRIME, K. COUNT. ITER : INTEGER: outperforms all other Pascal compilers for the PC in terms 
FLAGS : ARRAY [ 0.'SIZE ] OF BOOLEAN: of speed, code size and .EXE file size: 

BEGIN Execution Code EXE File 
WRITELN( ‘START’ ): Time Size Size 
FOR ITEM := 1 TO 10 DO BEGIN (secs) 

ales = 0; 
FORT 6 i ta Alea id SBB Pascal 10.90 181 4736 














MS-Pascal 11.70 229 2/7136 






PRIME: 
WHILE ae SIZE ee oe 






FLAGS[ K 
e K = K+P ime Pascal/MT+ 86 14.70 294 10752 
EOUNT ‘= COUNT + 1 

END; Turbo Pascal 15.38 288 9029 







END; 
WRITELN( COUNT, ‘PRIMES’ ) 
END. 






Development Package 








$350.00 
Softwa re Personal Use Compiler Package 607/272-2807 
Building also available Software Building Blocks, Inc. 
a loc k ec: $95.00 Post Office Box 119 
Call for free brochure with full benchmarks. Ithaca, New York 14851-0119 







SBB Pascal is a trademark of Software Building Blocks, Inc. MS-Pascal is a trademark of Microsoft Corporation. Pascal/MT+ 86 is a trademark of Digital Research, Inc. 
Turbo Pascal is a trademark of Borland International. 
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File Encryption (Listing continued, text begins on page 44) 


Listing Three 


FILLI6é: 
CALL 
LXI 
PUSH 
LXI 
LDIR 
FOP 
DJINZ 


iLXI 
LXI 
LXI 
CALL 


LX 
LxXI 
MV I 
SETIG: 
MOV 
Crt 
JRC 
INX 
JMP 
IQK: 
STAX 
INX 
INX 
DJINZ 


LxXTI 
MVI 


DOSPLICE:s 
PUSH 
PUSH 
ixXI 
LXI 
MOV 
ADD 
ADD 
MOV 
JNC 
INR 

DOSF 1: 
XCHG 
MOV 
INX 
MOV 
PIs 
CALL 
INR 
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ENCIPHER 
H, BLOCK 
= 

B, 32 


B 
FILtié 


H, 1256 

B, IOBUFF 

D, IOBUFF+256 
SHUFFLE 


D,16 
H, IOBUFF+256 
B,4 


A,M 
& 

10K 

H 
SETI6 


D 
D 
H 
SETIG 


H, ROTORO 
B,6 


oO 
oO 
© 


i) Db 
0 
p> 


COMMb>>IorM 


a 


PLiCe 


Irnrore 


sencipher block 
s..and move it to scratch area 


sshuffle I256 to replace 16 


sshuffled 1256 goes here 


snow find the six bytes < 6 


sloop control 


sget a random byte 
22S. it- sO? 
3; jump if so 
stry another 


ssave it in 16 if < 6 
sbump destination pointer 
sbump source pointer 


finally, splice the rotors, 
s..in the order for this session, 


s..now that we have I6 


scount 6 rotors, C indexes rotors 


saddress rotor moduli 


get 16 value 
* ? for offset into moduli 
add to DE 


‘ae 


ae 


sHL -—> the modulus to use 
sget it to BC 
srecover rotor address 


ssplice the rotor 
spoint to next rotor (HL+256) 


Dr. Dobb’s Journal, August 1984 


GETRES: 


RESLOOP : 


SETTOI: 


BLOCK 


ROTORO 


POP 
DINZ 


POP 
POP 
POP 
POP 
RET 


MVI 


PUSH 
PUSH 
LXI 
LXI 
LDIR 
POP 
XCHG 
PUSH 
MOV 
INX 
MOV 
INX 
PUSH 
ixIi 
CALL 
STX 
STX 


INXIX 
INXIX 


POP 
POP 
POP 
DINZ 
RET 


MOV 
INR 
DCX 
MOV 
INX 
RET 


COMMON 


DS 


COMMON 


DS 


B 
DOSPLICE 


Voor 


oO 


NDEX+7 


DOOD m 
bh 


‘a 


Sana 2 


GUARD 
SIDUE 


IT] * 


OMA ETTIerMe. & 
° 


) 
pe 


D 
H 
B 


RESLOOP 


ro oh 


/BLOCK/ 


ig 


/ROTORO/ 
206 
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snow each ROTORCI6£1II]] is of 
3;--length MODCIS(CII], but in an 
;-.-Order which depends on the 
3--user key 

sali done... 


sGETRES: interface between KEYGEN 
3--and RESIDUE. IX -> destination, 
s5--HL —-> source, DE —-> mod, using 
3-=-INDEX for dividend 


sloop control 


smove key bytes to INDEX 
snow HL —-> next source. 
sHL -> mod 


sload modulus to DE 

sHL —-> next mod 

sfind the residue 

sset destination to result 


snmext destination 


s—> next mod 
=F 


: next source 


sOETTOI: set step to 1 if req’d 


;ze@ro high Byte (we know A is zero) 
smake A = i 

s—- low byte 

;store i 

sreset pointer 


sthe encryption block 


sstart of the rotor space 


(continued on next page) 
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File Encryption (Listing continued, text begins on page 44) 
Listing Three 


RANDP 


BITPERM 


12356 


1é 


GUARD 


INDEX 


STEPO 
STARTO 


MODO 


LENKY1 
KEY1 
LENKY2 
KEY? 
LENE YS 


KEYS 
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COMMON 
DS 
COMMON 
DS 
COMMON 
DS 
COMMON 
DS 


COMMON 
DS 
COMMON 
DS 


COMMON 
DS 
COMMON 
DS 
COMMON 
DS 


COMMON 
DS 
COMMON 
DS 
COMMON 
DS 
COMMON 
DS 
COMMON 
DS 
COMMON 
DS 


END 


f/RANDP / 
2ud 


/BITPERM/ 


206 
/I256/ 
236 
/16/ 

& 


/GUARD/ 
2 
/INDEX/ 
9 


*STEPO/ 
at 
/STARTO/ 
2 

/MODO/ 


2 
/LENEY1/ 
u 

/KEY1/ 
ia 
/LENKY2/ 
1 

FREV SS 
73 
/LENKY3/ 
1 

/KEYS/ 
Fed 


spermutation table 
stable used for bit permutation 
sordered table to be shuffled 


stable for permutation of rotors 


s;gQuard bytes for index space 


sstorage for the steps begins 
sstorage for the starts begins 


sstorage for rotor moduli begins 


sstorage for user key lengths 


s;--and user keys 


End Listing Three 


(Listing Four begins on page 66) 
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Now Your 
Computer 
Can See! 


5295.0%° 


A total imaging system complete 
and ready for plug-and-go opera- 
tion with your personal computer. 


Elegance 


Power 


Speed 


The MicronEye™ offers select- 
able resolution modes of 256 x 128 
and 128 x 64 with operating speeds 
up to 15 FPS. An electronic shutter 
is easily controlled by software or 
manual functions, and the included sample programs allow you to con- 
tinuously scan, freeze frame, frame store, frame compare, print and pro- 
duce pictures in shades of grey from the moment you begin operation. 

Only the MicronEye™ uses the revolutionary IS32 OpticRAM™ image 
sensor for automatic solid state image digitizing, with capability for grey- 
tone imaging through multiple scans. And with these features, the 
MicronEye™ is perfectly suited for graphics input, robotics, text and 
pattern recognition, security, digitizing, automated process control and 
many other applications. 

The MicronEye™ is available with immediate delivery for these com- 
puters: Apple II, IBM PC, Commodore 64 and the TRS-80CC (trademarks of 


Apple Computer Inc., International Business Ma- 


chines, Commodore Corp., and Tandy Corp. 
TECHNOLOGY, INC. 


respectively). 
Phone for MicronEye™ information 
VISION SYSTEMS 
2805 East Columbia Road 


on the Macintosh, Tl PC and RS232 
(trademarks of Apple Computer Inc. and Texas In- 

Boise, Idaho 83706 
(208) 383-4106 


struments respectively.) 
*(Add $8.00 for shipping and handling [Federal 
TWX 910-970-5973 
Circleno. 39 onreaderservicecard. 













MicronEye™ 
“Bullet” 





€ Users’ Group 
Supporting All C Users 
Box 287 
Yates Center, KS 66783 





























Circle no. 16 on reader service card. 


Express Standard Air]; residents of the following 
states must add sales tax: AK, AZ, CA, CO, CT, FL, 
GA, IA, ID, IL, IN, LA, MA, MD, ME, MI, MN, NC, NE, 
NJ, NY, OH, PA, SC, TN, TX, UT, VA, VT, WA, WI.) 











Advanced Screen Management 
Made Easy 


ADVANCED FEATURES SIMPLIFY ¢ IMPROVE 
e Menus e Help files 
e Datascreens  ® Editors 





e Complete window system 
Unlimited windows and text files 
Nest and overlap windows 

| Overlay, restore, and save 

#) | windows 

Horizontal and vertical scrolling 
e Word wrap, auto scroll 

Print windows 

Highlighting 











ALL DISPLAYS 









AN 
@ 


Za | YZ 


C SOURCE MODULES 
FOR 


pop-up menus, multiple window 
displays, label printer, cursor 
control, text mode bar graphs. 
Plus complete 
building block subroutines 

















~ 


WINDOWS e Fast screen changes 
FOR & No snow, no flicker 






















FOR THE IBM PC WINDOWS++ DESIGNED FOR 
+ COMPATIBLES PORTABILITY 
Lattice C, DeSmet C Much more than a window display *Minimal dependence on 
C86, Microsoft C system, Windows for C is a video IBM BIOS and 8086 ASM 
All versions toolkit that simplifies all screen 


FULL SOURCE AVAILABLE | 

| NO ROYALTIES | 
Windows for C $150 A PROFESSIONAL SOFTWARE TOOL FROM 802-848-7738 
Demo disk and CREATIVE SOLUTIONS Master Card & Visa Accepted 


manual $ 30 Shipping $2.50 
(applies toward purchase) 21 Elm Ave, Box D8, Richford, VT 05476 VT residents add 4% tax 


management tasks 
























Circle no. 14 on reader service card. 





File Encryption (Listing continued, text begins on page 44) 
Listing Four 


we “2G ‘ae ‘Se “Se We 


“an ‘Se Se we we 


INIT: 


Initialize the index from the file index 
(if enciphering), or from ciphertext file, 
deciphering. Also set BITPERM according to 
the index mod 256, and the rotor starting 
positions according to index and the steps. 
The index - 1 counts the the I - 1. block 
enciphered. 

This routine sets the pro tempore rotors 
and the bit permutation table to what they 
should be for enciphering the Ith block. 
Thus, no part of the key stream is used more 
than once. 


if 


On call, HL -?> encryption index 


‘a8 Se 


20 ‘28 WH ‘28 ‘88 ‘Se We 


wn We Wb we we ae ‘an 


‘ae We 


: Macros Zilog 
Tega RRL a a st eS NO ang z 
; RARR M RR (HL) - 
- JRC nn JR C,nn : 
: RALR M RL (HL) : 
Pe es TE ET oe oe kh en re Tee eet ee REE Per cor a eee ne cs 
CSEG 
MACLIB 7Z8O 
PUBLIC INIT 
EXTRN CYCLE,RESIDUE,RIPLO 
INIT: 
PUSH PSW 
PUSH B 
PUSH D 
PUSH H 
LxI D, INDEX sdestination area 
i XI BR? 
LDIR : s INDEX = file or ciphertext index 
LXI D, BITPERM 
L_XI H, RANDP 
LDA INDEX+8 
CALL CYCLE ;sBITPERM gets the permutation of 
3;--RANDP per index mod 256 
RUS DNR fe a RR OIE Bs“ Sk <n a RR iccee na. A 
s Now set starting positions for rotors: - 
s DOTI= 1 TO 6 : 
: STARTCI6£131] = (INDEX * STEPCI6£11)) : 
: mod MODLIS(£III ; 
;s END DO 5 
a a aS SER gO aR a aaa ain es mea 3 
LXI H, 16 37 indexes of START, STEP,MOD 
MVI B,& sloop control 
66 
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INITO1: 
MOV 
ADD 
STA 
INX 
PUSH 
LXI 
ADD 
MOV 
JNC 
INR 

INITO2: 
CALL 
LXI 
LDA 
ADD 
MOV 
JNC 
INR 

INITO4: 
MOV 
INX 
MOV 
iLXI 
CALL 


LXI 
LDA 
ADD 
MOV 
JNC 
INX 
INITO6: 
MOV 
INX 
MOV 
POP 
DJINZ 


POP 
POP 
POP 
POP 
RET 


MULT11: 
PUSH 
ixXI 
LXI 


XCHG 
LDIR 
CALL 
LXI 
LXI 
LXI 
LDIR 


A,M 

A 
OFFSET 
H 

H 

D, STEPO 
E 

EA 
INITO2 
D 


MULT11 
H, MODO 
OFFSET 
‘3 

L,A 
INITO4 


3M 


me le 


DM 
H, WORK+11 
RESIDUE 


H, STARTO 
OFFSET 

L 

L.A 
INITO6 

H 


ME 

H 

M,D 

H 
INITO1 


H 
D 
B 
FSW 


RIPLO 

H, INDEX 
D, WORK+2 
BL9 
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sget Ié6[1T] 

soffset from STARTO 

ssave it 

oe wee Eo) ae hk Be 

3;..-and save for next loop 


smultiply index k STEPLI6L£1I]1] 
sget MODCI6(£11] into DE 
s-.for RESIDUE 


s-> to 11 byte result of multiply 
sreturn with DE = residue 


sget STARTCI6CLIIJ] to store 
3;-.the residue 


sHL —> STARTCI6CII]I 
3;..-store residue there p< 


sretrieve I6CIt+iJ 
;do for I = ito 6 


sMULT11= multiplies the value 
3--pointed to by DE by 1i-byte 
s.-.Value in the WORK area 


s;save caller’s loop control 
scopy multiplier for shifting 


s;clear work area 
scopy multiplicand into WORK+2 


(continued on next page) 
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File Enc ryption (Listing continued, text begins on page 44) 
Listing Four 


MULTOI1: 


MULTOS: 


MULTO4: 


MULTOS: 


MV I 


ixXI 
ANA 
RARR 
JZ 
DCX 
RARR 


JRC 


PUSH 
MVI 
LXI 
ANA 


RALR 
DCX 
DINZ 
POP 
DINZ 
POP 
RET 


INTERADD: 


PUSH 
ixXI 
LXI 
LXI 
ANA 


INTADDO1: 


LDAX 
ADC 
STAX 
DCX 
DCX 
DJINZ 
ror 
DJINZ 
POP 
RET 


FINALADD: 


FLADDOI: 


68 


MV I 
LXI 
LXI 
ANA 


LDAX 
ADC 
STAX 


B,16 


H, SHIFTER+1 


aR 
M 
MSBISO 
H 
M 


INTERADD 


B 

B11 

H, WORK+10 
a 


M 
H 
MULTOS 
B 
MULTO1 
B 


‘a 
pub 
pu 


WORK+71 
WORK+10 


BODES Ff Lo wa 


INTADDO!I 
B 
MULTO4 
B 


Bit 
D, WORK+21 
H, WORK+10 


A 
D 
M 
D 


sshift 16 bits 


scClear carry 
stest for add of partial product 
3;--.and possibly done 


sadd accum to partial result, 
s;--wWith more doubling to go 


;Clear carry 

sdouble multiplicand by shifting 
s;-e-for all 11 bytes 

srestore loop control 


sdo for all bits in SHIFTER 
srestore caller’s loop control 


s;add 11 bytes 

3;—-> partial result 
s—> doubled value 
;clear carry 


sdo for alli bits in shifter 


sClear carry 
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End Listing Four 


DCX D 
DCX H 
DJINZ FLADDO!1 
POP B 
RET 
MSBISO: sarrive here if most signif byte 
INX H 3;--Of shifter is O 
RARR M s;..-and test for least signif 0 
JNZ MULTOS 
JRC FINALADD 
POP B 
RET 
OFFSET ODS i 
SHIFTER DS ae smultiplier 
COMMON /WORK/ 
WORK DS me 
COMMON /RANDP/ 
RANDP DS Zoo 
COMMON /BITPERM/ 
BITPERM DS 26 
COMMON /1I6/ 
Ié DS & 
COMMON /INDEX/ 
INDE X DS 9 
COMMON /STARTO/ 
STARTO DS 2 
COMMON /STEPO/ 
STEPOQ DS z 
COMMON /MODO/ 
MODO DS 2 
END 
Listing Five 
po 
3 
s; ENCIPHER: Encipher one 32-byte block of text by 


substitution with the six rotors and permutation 
by BITPERM. 


‘ae ‘OS ‘0 ‘RS 


: Macros Zilog : 
3 =—S SSeS ———— a 
~ SLAR r SLA r ; 
> VPM "ag aaa le ae TM a ah a I ing ss EET EE gg PS CR I TN AP PY ON RSS ET IT ESF 3 
CSEG 
MACLIB Z80O 


PUBLIC ENCIPHER 
EXTRN EXTRACT, SUBSF, PERMF,NXTBLK 
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(continued on next page) 
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File Encryption (Listing continued, text begins on page 44) 
Listing Five 


ENCIPHER: 


ELOOP: 


DOPERM: 


70 


PUSH 
PUSH 
PUSH 
PUSH 


LxI 


MVI 


MOV 
MVI 
INX 
PUSH 
LXI 
DAD 
PUSH 
LAT 
MOV 
SLAR 
MV I 
DAD 
MOV 
INX 
MOV 
FOP 
CALL 
LXI 
CALL 
MOV 
CPI 


CPI 
CZ 
POP 


DJINZ 


CALL 


POP 
POP 
POP 
POP 
RET 


XCHG 
LXI 
CALL 
RET 


PSW 


roo 


z 
~~ 
o 


f) 2 " i] 
a oz 
O 
= 
O 
a 
© 


WN) 
| 
LP 
A 
oar 
© 


= 


rermoommrrorrirms 88 
= 


EXTRACT 
D, BLOCK 
SUBSF 
A,B 

5 
DOPERM 
3 
DOPERM 
H 


Ei OOP 


NXTBLK 


a ee ae 


D, BITPERM 
PERMF 


saddress the vector which 
3;-.-determines the order of 
3;--the rotors 
sloop control 


s;set DE to relative page of 
3;--rotor tables 

sfor next rotor 

;save I6 address 

sbase of rotor tables 

sHL -—-> rotor to be used 

ssave rotor address 

s;base of start addresses 

s;set DE to relative word of starts 
°c > FE 22 

snow DE = index to correct start 
sHL -—-> start value to be used 
sget the start value to DE 


sHL -?> rotor 
sextract 256 bits from the rotor 


sperform the substitution 
;permute after second & fourth 
35--substitutions 


srestore 16 pointer 
3;do for six rotors 


sadvance the index and step rotors 


3;do a permutation on block 
s;HL -—-> BLOCK 

saddress permutation table 
s;forward permutation 
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COMMON /BLOCK/ 


BLOCK DS i 

COMMON /I16/ 
1é DS & 

COMMON /STARTO/ 
STARTO DS ? 

COMMON /ROTORO/ 
ROTORO DS 256 

COMMON /BITPERM/ 
BITPERM DS 256 

END End Listing Five 
Listing Six 


aa 
| 


‘ae 
ae 


> DECIPHER: Decipher one 32-byte block of text by 


: substitution with the six rotors and permutation 

: by BITPERM. ; 
: ; 
~ Macros Zilog : 
a SSS SS =—S SS a 
: SLAR r SLA r : 
Re eee Tee pe ee Lec ks aN mA 2) ay ke em ey a gk ee nS RG a Se eS ge 

CSEG 


MACLIB 7Z80 


PUBLIC DECIPHER 
EXTRN EXTRACT, SUBSG, PERNG, NXTBLK 


DECIPHER: 

PUSH PSW 

PUSH B 

PUSH D 

PUSH H 

ixXI H, I65+5 saddress the vector which 
3;..-determines the order of 
s-.the rotors 

MVI B,6 sloop control 

DLOOP =: 

MOV DM sset DE to relative page of 

MVI E, 0 3;--rotor tables 

DCX H sfor next rotor 

PUSH H ssave I6 address 

ixXI H, ROTORO sbase of rotor tables 

DAD D sHL -—-> rotor to be used 

PUSH H ssave rotor address 

LXI H, STARTO sbase of start addresses 

MOV ee 2, sset DE to relative word of starts 

SLAR E sR = E £2 

MYT D,O snow DE = index to correct start 

DAD D sHL —> start value to be used 

MOV =, sget the start value to DE 

INX H 

MOV DM 


(continued on next page) 
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File Encryption (Listing continued, text begins on page 44) 
Listing Six 


DOPERM: 


BLOCK 


Té 


STARTO 


ROTORO 


RITPERM 


72 


POF 
CALL 
LX 
CALL 
MOV 
CPI 
Cz 
CPI 
CZ 
POP 


DINZ 
CALL 


POP 
POP 
POP 
POP 
RET 


XCHG 
LxXI 
CALL 
RET 


COMMON 


DS 


COMMON 


DS 


COMMON 


DS 


COMMON 


DS 


COMMON 


DS 
END 


H 
EXTRACT 
D, BLOCK 
SUBSG 
A,B 

5 
DOPERM 
DOPERM 
HH 


DLOOP 


NXATBLE 


QVoornl 


D, BITPERM 
PERMG 


/BLOCK/ 
Aes 

fier 

6 
/STARTO/ 
= 
/ROTORO/ 
2G 
/BITPERM/ 
236 


sHL -> rotor 
;extract 256 bits from the rotor 


;perform the substitution 


;permute after second and fourth 
3- Substitutions 


srestore I6 pointer 


3;do0 for six rotors 


sadvance the index and step rotors 


sHL.. -> BLOCK 
saddress permutation table 


End Listing Six 


(Listing Seven begins on page 74) 
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MicroMotion 


MasterFORTH 


It's here — the next generation 
of MicroMotion Forth. 


Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 


Uses the host operating system file structure (APPLE 
DOS 3.3 & CP/M 2.x). 


e Built-in micro-assembler with numeric local labels. 
e Afull screen editor is provided which includes 16 x 


64 format, can push & pop more than one line, 
user definable controls, upper/lower case key- 
board entry, ACOPY utility moves screens within & 
between lines, line stack, redefinable control 
keys, and search & replace commands. 


Includes all file primitives described in Kernigan 
and Plauger’s Software Tools. 


e@ The input and output streams are fully redirectable. 
e Theeditor, assemblerand screen copy utilities are 


provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 


Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten. 


The string-handling package is the finest and 
most complete available. 


A listing of the nucleus is provided as part of the 
documentation. 

The language implementation exactly matches 
the one described in FORTH TOOLS, by Anderson 
& Tracy. This 200 page tutorial and reference 
manual is included with MasterFORTH. 


e@ Floating Point & HIRES options available. 
@ Available for APPLE II/ll+/lle & CP/M 2.x users. 
e MasterFORTH — $100.00. FP & HIRES —$40.00 each 


Publications 
@ FORTH TOOLS —- $20.00 


@ 83 International Standard — $15.00 


@ FORTH-83 Source Listing 6502, 8080, 8086 - 
$20.00 each. 









Contact: 


MicroMotion 
42077 Wilshire Blvd., Ste. 506 

Los Angeles, CA 90025 
(213) 821-4340 


Circle no. 37 on reader service card. 











A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED 280 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M* 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 


*CP/M is a Trademark of Digital Resaerch, Inc. 





Circle no. 54 on reader service card. 


OPT-TECH SORT™ 


SORT/MERGE program for IBM-PC & XT 


Now also sorts dBASE Il files! 


Written in assembly language for high performance 
Example: 4,000 records of 128 bytes sorted to give 
key & pointer file in 30 seconds. COMPARE! 


Sort ascending or descending on up to nine fields 


Ten input files may be sorted or merged at one time 


Handles variable and fixed length records 
Supports all common data types 

Filesize limited only by your disk space 
Dynamically allocates memory and work files 
Output file can be full records, keys or pointers 
Can be run from keyboard or as a batch command 
Can be called as a subroutine to many languages 
Easy to use, includes on-line help feature 

Full documentation — sized like your PC manuals 
$99 —VISA, M/C, Check, Money Order, COD, or PO 
Quantity discounts and OEM licensing available 


To order or to receive additional information 
write or Call: 


OPT-TECH DATA PROCESSING 
P.O. Box 2167 Humble, Texas 77347 
(713) 454-7428 
Requires DOS, 64K and One Disk Drive 





Circle no. 41 on reader service card. 


File Encryption (Listing continued, text begins on page 44) 
Listing Seven 


‘a9 ‘ae 


6 ‘a8 SS ‘ae 


‘a0 ‘20 ‘RS ‘wae 


SUBSF =: 


The forward substitution function. Perform 
substitution on one 32-byte block of text by addition 
mod 2°256. 


wo We as ae 6 


On call, DE -> text block, on page boundary 
in BLOCK common area, 
Hi -> key block, on page boundary in 
WORK common area. 
On return, DE —-> substituted text block 
All registers are saved. 


‘2 SB wee 


SUBSF =: 


FLOOP': 


74 


CSEG 
MACLIB 


PUBLIC 


PUSH 
PUSH 
PUSH 
PUSH 


MOV 
ADI 
MOV 
MOV 
ADI 
MOV 


MVI 
ANA 


LDAX 
ADC 
STAX 
DCX 
DCX 
DJNZ 


POF 
POP 
POP 
POP 
RET 


END 


Z80 


SUBSF 


PSW 
B 
D 
H 


E sget DE pointing to last byte 

3-.--Can do it this way since 
=] se---2text is on page boundary 
L 3;do the same for key block 


sadd 32 bytes 
;clear carry 


sget byte of text 

sadd key to it 

;Save sum in text area 
3;decrement pointers 


NO DToOSD Dm mA BMAD 
(Al 
bh 


i OOP 


PSW 


End Listing Seven 
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Listing Eight 


SUBSG: The inverse substitution function. Perform 
substitution on one 32-byte block of text by 
subtraction mod 2°256. 

On call, DE -—-> text block, on page boundary 
in BLOCK common area, 
HL -> key block, on page boundary in 
WORK common area. 
On return, DE -—> substituted text block. 
: All registers are saved. 


we we ws ‘as ‘as ‘as Ss wa 
a5 Wwe we we ws wae a8 ee {ee 


CSEG 
MACLIB Z80O 


PUBLIC SUBSG 


SUBSG: 
PUSH PSW 
PUSH B 
PUSH D 
PUSH H 


MOV 
ADI 
MOV 


a sget DE pointing to last byte 
2 
E 
MOV & 
= 
L 


= 

3$...-can do it this way since 
ry s$..-text is on page boundary 
Bes sdo the same for key block 
ADI 
MOV 


MVI 
ANA 


B,32 ssubtract 32 bytes 
eo ;Clear carry 
GLOOP =: 
LDAX D sget byte of text 
SBB M ssubtract key from it 
STAX D ssave sum in text area 
DCX H ;decrement pointers 
DCX D 
DJINZ GLOOP 


POP H 
POP D 
POP B 
POP PSW 
RET 


END 


End Listing Eight 
(Listing Nine begins on next page) 
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File Encryption (Listing continued, text begins on page 44) 
Listing Nine 


‘a8 ‘as 
ae 


wae 


s PERMF: permute bit vector BLOCK by BITPERM: ; 
- BLOCK <-— BLOCKCBITPERM). ° 
: 3 
- On call, HL —-> bit vector, BLOCK, 
; DE -> permutation table, BITPERM : 
: Assumes that BLOCK, BITPERM and WORK are on page ; 
3 boundary. # 
: Saves all registers. : 
; = 
~ Macros Zilog 3 
; = SSS = & 
; JRNZ nn JR NZ,nn ; 
; SETB n,M SET mn, (HL) ; 
; Sit one BIT mn, (HL) ; 
I ea Sa PR a AS SE RETO i ec EOC ine 3 

MACLIB 7Z80 

CSEG 

PUBLIC FERMF 

EXTRN RIPLO sroutine to clear workspace 
PERMF = 

PUSH PSW ;Ssave registers 

PUSH EB 

PUSH D 

PUSH H 

CALL RIPLO sClear partial result area 

LXI B,0 sinitialize indexes 

s;if Prth bit of BLOCK = 1 then 

PRMFO1: 5--Cth bit of WORK = 1 

L_DAX D ;get BITPERM value 

RAR sand convert to byte 

RAR s--index into BLOCK (divide by 8) 

RAR 

ANT FH 

PUSH H ssave BLOCKS*s base 

ADD :.. 

MOV L.A sHL —-> byte containing desired bit 

PUSH H ssave BLOCK pointer 

LxXI H,EXBIT 3-2 second byte of BIT instruction 

MV I A, 45H srestore original BIT instruction 

MOV MA 

i DAX D sgGet BITPERM value again 

ANTI 07H s---and convert to bit index 

XAI O7H STever ses fit position in 0..i.7 

ADD &s sthen shift to BIT’s mask position 

ADD = 

ADD ey 
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EXBIT 


PRMPF IOs 


PRMF 20: 


EXSET 


WORK 


ORA 
MOV 
FOF 
2 
FQU 
JRNZ 


POP 
INX 
INR 
DINZ 
LXI 
XCHG 
LXI 
LDIR 
POP 
POP 
FOr 
POP 
RET 


MOV 
RAR 
RAR 
RAR 
ANI 
LX 
ADD 
MOV 
PUSH 
LxXI 
MVI 
MOV 
MOV 
ANI 
XRI 
ADD 
ADD 
ADD 
DORA 
MOV 
POP 
SETEB 
FOU 
JMP 


COMMON 
DS 
END 


M 

M, A 

H 

o.M 
$—1 
PRMF2O 


, OC4H 


oo7 352 207 


#olsabpbph 
» =F Pb 


PRMF 10 


/WORK/ 
Hs 
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sif BITPERMLid bit is on, set 
3;-.Cth bit of WORK 


srestore BLOCK base 
smext BITPERM value 


smext bit of WORK 
3B is counting down from 255 


sith bit of BLOCK is on; set on 
ee tteh bat of “WORE 


sfind the jth byte of WORK 


ssave BLOCK pointer 
srestore original SETB instruction 


sfind the ith bit of the byte 


sthe temporary workspace; this 
sroutine uses only 32 bytes, 
s.-but others need 33 


End Listing Nine 
(Listing Ten begins on next page) 
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File Encryptio NM (Listing continued, text begins on page 44) 
Listing Ten | 


we Sr we we we 


as 


we ‘mB 


PERMG: Inversely permute bit vector BLOCK by 


“we wae 


BITPERM: BLOCK <-—- BLOCK[1/BITPERM]. 


“ae ‘hs we 


On call, HL -> bit vector, BLOCK, 
DE -> permutation table, BITPERM. 
Saves all registers. 


“6 ‘88 we we 





a 

3 Macros. Zilog : 

5 SS SS = SS : 

; JRC nn JR Cy,nn : 

; SETB nM SET n, (HL) : 

AI RAS Se ie I aS MIT ARE SA A NTN BRASS CORR 7c Sk SRN IE oe " 
CSEG 


PERMG: 


PRMGO1: 


PRMGO2: 


PRMGOS: 


78 


MACLIB Za0 


PUBLIC PERMG 


EXTRN RIPLO sroutine to clear workspace 

PUSH PSW ssave all registers 

PUSH B 

PUSH D 

PUSH H 

PUSH H ssave bit vector pointer 

CALL RIPLO sclear partial result area 

XRA A ;get a zero 

STA COUNT 3;zero bit count 

MVI B,0 ;z@ro0 index 

MV I Nea g NE ;outer loop control 

MVI E,8 sinner loop control 

MOV AM sfirst byte of BLOCK 

PUSH H ssave BLOCK pointer 

LxI H, COUNT sto count bits 

ADD fi stest bit for i 

JRC PRMG2O sif i, set on BITPERMEi] bit 
3;-.-Of result 

INR M scount the bit 

DINZ PRMGO? 3;do for all bits 

POP H srestore BLOCK pointer 

INR a smext byte: BLOCK must be on page 

DCR sadjust outer loop 

JNZ PRMGO1 3;do for all bytes of BLOCK 

POP H sreturn pointer to start of BLOCK 

iLxI D, WORK sreplace input BLOCK with result 

XCHG 

MVT Lg oe 


(Continued on page 80) 
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Quelo” 68000 Assembler 


First Commercial Release 
January, 1983 


The QueloT™ portable 68000 assembler conforms to the Motorola 


New 5.0 Release 


resident assembler, publication M68KMASM[D4]. 


Quelo™ 68000 Assembler Package Features: 


Input file concatenation, include function, macros, global 
parameter substitution from command line, listing date-time 
stamp, up to 31 character symbols, conditional assembly, struc- 
tured programming directives, instruction optimization, 68010 in- 
structions, relocation and linking, complex expression linking (all 
operators), DB-DW-DL directives for Z80 byte order data genera- 
tion, object library utility, software configuration tracking, condi- 
tional linking, options for assembler and linker to write complete 
symbol table to a file, detailed symbol table listings, assembler 
symbol! cross-reference, linker global symbol cross-reference, ob- 
ject library symbol cross-reference, superb linker load map, 
various HEX load formats produced by linker, error messages in 
English, extensive typeset manual with index, readily transported 
to any system with a C compiler and “UNIX like” system interface. 





mats for CP/M-80, -86, -68K, until June 30, 1984. 
MS-DOS and PC-DOS $595 after June 30. 


Portable source version with | 


Ready to run in various disk for- | $300 early bird price, good 





$750 and license 
agreement. 


detailed installation and 
testing instructions. 





For more information or to order Quelo’™™ 
write or call Patrick Adams 2464 33rd Ave. W., Suite #173 
Seattle, WA 98199 


COD, Visa, MasterCard. (206) 285-2528 


ee a ee a ee FOOT nna S er eo CN SS) LS ee 
CP/M-80, CP/M-86, CP/M-68K TM DRI. UNIX TM Bell Labs. MS-DOS TM 
Microsoft. PC-DOS TM IBM. 


Circle no. 50 on reader service card. 


DEVELOPMENT HARDWARE/SOFT WARE 


: G : EK. (601) 467-8048 


HIGH PERFORMANCE/ COST RATIO 


EPROM PROGRAMMER 


Compatible w/all Rs 232 serial interface port * Auto 


Bidirectional Xon/Xoff and CTS/DTR supported * 
Read pin compatible ROMS * No personality 
modules * Intel. Motorola. MCS86. Hex formats * 
Split facility for 16 bit data paths * Read, program, 
formatted list commands * Interrupt riven, 
program and verify real time while 
sending data * Program single byte, 
block, or whole EPROM * Intelligent 
diagnostics discern bad and erasable 
EPROM * Verify erasure and compare MOQDEL 7956 
commands * Busy light * Complete GANG PROGRAMMER 


w/Textool zero insertion force socket Intelligent algorithm. Stand alone, 
and integral 120 VAC power (240 copies eight EPROMS at a time. 


VAC/S0Hz available) With RS-232 option $1099. 


DR Utility Package allows communica- 
tion with 7128, 7228, and 7956 
programmers from the CP/M com- 
mand line. Source Code is provided. 
PGX utility taco allows the same 
thing, but will also allow you to specify 
a range of addresses to send to the 
programmer, Verify, set the Eprom 


type. 
SS I 
MODEL 7316 PAL PROGRAMMER 
Programs all series 20 PALS. Software 
included for compiling PAL source 


$549 


-~ SOFTWARE 


CALL NOW 


$879 stand alone 
select baud rate * With or without handshaking * MODEL 7956 


FUSION” —s95 


Special Offer 









Dear Mr. Steinbrenner, 


This letter is to draw your attention 
ORIOLES (A) to one of our newest prospects, whose rights 
RANGERS (A) were recently acquired by our club in Tusc- 
WH. SOX (H) aloosa. Her name is Karen D. Batterhball, ad) = 
CARDINALS(A) we are agreed that she has great major 


| | league potential. We would appreciate your | [RH 
L_| 299 thoughts on this matter. 






RUTH, BH BATTERBALL,K AARON,H 
39 44 
15 


268 : | 9 

2s | 

. 248 5 x 
J 


A 


Se 


MARCH APRIL MAY JUNE 


APX Core Executive allows you to: 


run up to 8 off-the-shelf programs for the IBM PC 
simultaneously in a multitasking window environment 
switch between programs with a single keystroke 
enjoy true concurrent processing 

move data between windows 

develop programs using our program interface 

build keystroke macros in a quick interactive fashion 


Application Executive 


A\EX ca iackway Suite 4C 


New York, N.Y. 10012 
(212) 226-6347 


Circle no. 3 on reader service card. 


Model 7128-L1,L2,L2A . $239 .00 




























Model 7128-24 ........ $329 .00 
DRS:or DRS 252.620.4026 $ 30 
DR8PGX or DRSPGX ..$ 75.00 
Cross Assemblers ..... $200.00 
XASM (for MSDOS) ...$250.00 
U/V Eraser DE-4 25.8.4 $ 78.00 
RS232 Cables). ’.4 2.2 $ 30.00 
S/S liadapter 2 ches $174.00 
S756 adapters u ss ates $135.00 
48 Family adapter.... $ 98.00 
$549 
MODEL 
7228 
MODEL 7228 
“te EPROM PROGRAMMER 
i bith at val Model 7128 plus 
by siti uto Select Bau . super fast adaptive 
ay programming algorithms, low profile 
ce Spsccoes aluminum enclosure. Programs 2764 


in one minute! 







codes. 
2 
seer scans for cpm! ISIS. MODEL 7128 EPROM PROGRAMMER 
Avocet Cross Assemblers are Programs and Read: 
TRSDOS, MSDOS. available to handle 8748, 8751, $1195 
wo Z8, 6502,-: 680X. . ete. MODEL NMOS NMOS CMOS’ EEPROM MPU’S 
1. TM of Digital Research Corp. Aekilenie foe CEAME - wad 7324 ihe Ait Se aeEs pes 
2. TM of Intel Corp. MSDOS computers. Order by 1516 2716 27C32. ~=-5213H 8748H 
3. TM of Tandy Corp. Stone ae type and specify 3532 3732 C6716 X2816 8749H 
4. TM of Microsoft. ele ee ae Fe 2564  2732A + 27C54 48016 8741 
Model DE-4 U/V Products MODEL 7324 PAL PROGRAMMER 68766 2764 12816A 8742H 
Post Office Box 289 hold 8, 28 pin parts. High Programs all series 20 & 24 PALS. 68764 27128 8741H 
Waveland, Mississippi 39576 quality professional construc- Operates stand alone or via RS232. 8755 27256 8751 
[601]-467-8048 tion. 5133 


SSS SSS —_—_—__—___anmmamiaaasnauaa 


Circle no. 26 on reader service card. 














File Encryption (Listing continued, text begins on page 44) 
Listing Ten 


PRMG2O0: 


EXSETG 


COUNT > 


WORK 


80 


LDIR 
POP 
POP 
POP 
POP 
RET 


PUSH 
MV I 
STA 
MOV 
PUSH 
MOV 
i DAX 
RAR 
RAR 
RAR 
ANTI 
PUSH 
LxI 
MOV | 
LDAX 
ANI 
XRI 
ADD 
ADD 
ADD 
FUSH 
LXI 
ORA 
MOV 
POP 
SETE 
EGU 
POP 
ror 
POP 
JMP 


DS 


COMMON 


DS 


END 


VMOoL 


PSW 
A, OCSH 
EXSETG 
A.M 

D 

E,A 

D 


1FH 


H, WORK 


bd 


,EXSETG 


ceca thal sara -oel rediead 
al ea” 


7 
i 
= 


PRMGOS 


1 


/WORK / 
a 


; BLOCK <-— BLOCK([1/BITPERM] 


ssave current byte in A 
sPpristine 2nd byte of SET 


sget bit count, ith bit 
s;save BITPERM pointer 


sworks because BITPERM is on page 
;qget BITPERM(Lil] byte 


ssave bit counter pointer 
saddress partial result’s ith byte 


;get BITPERMLCild byte again 
scompute bit index into byte 
s32--cCount bits from left to right 
sthen shift to SET’s mask position 


sSave partial result jth pointer 


srestore partial result pointer 


sholds bit count 


sthe temporary workspace; this 
3--routine uses only 32 bytes, 
sbut others need 33 


End Listing Ten 
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Listing Eleven 


8 ms ‘AS (Re A me fe 


We we Ws ‘ae 


CYCLE: 


CYCLOOP: 


OFFSET 


CYCLE: 


Convert a permutation cycle to a permutation list 

at the nth permutation. 

BITPERM <-— CYCLE(N, RANDP, BITPERM) 

On call: DE -—-> BITPERM (start of 256 byte area on 
page boundary). 

HL —-> RANDP (256 bytes on page boundary). 

A = N, O <= N <= 255. 


On return: BITPERM is established from RANDP and N. 


CSEG 

MACLIB Z8O 

PUBLIC CYCLE 

PUSH PSW 

PUSH B 

FUSH D 

PUSH H 
s;create BITPERM 

STA OFFSET s;save N 

LXI B,O sloop control and ith counter 
sset DE to destination byte, 
3; . .« DE+RANDP(ECI 

MOV a 5 —> RANDPECI 

MOV A.M 

MOV E,A sDE —> BITPERMERANDPCECI] 
sset HL to source byte 

LDA OFFSET 

ADD Cc ;N+C 

MOV L,A sHL —> RANDPCN+CI 

MOV A,M 

MOV L,A -¢ 2 eee a RANDP CRANDPCN+C 11 

MOV AM 3;.-.-get that byte and 

STAX D s,.put it in BITPERMECRANDPECI14 

INR C snext ith 

DJINZ CYCLOOP sdo for all bytes 

POP H 

POP D 

POP B 

POP PSW 

RET 

DS i 

END 


Dr. Dobb’s Journal, August 1984 


‘aa we we we 


weowus we we ws 


‘an 


oe ‘sa 


End Listing Eleven 


(Listing Twelve begins on next page) 


81 


File Encryption (Listing continued, text begins on page 44) 
Listing Twelve 


‘on es ‘Oh St We St we ee fee 


‘ae 


UPTACE: 


UPTKO1: 


UPTKO2: 


82 


UPTACK: 
Convert digits represented by ARG to the base BASE. 
Output is in ACCUM (32 byte accumulator) in base 2. 
On Call: A = BASE: 1 < BASE < 2564 


On return: HL —-> base 2 representation of ARG, mod 2°2564, 


Macr 


CSEG 
MACL 


PUBL 
EXTR 


PUSH 
PUSH 
PUSH 


STA 
STA 
SHLD 
PUSH 
LXI 
ixXI 
LXI 
XRA 
MOV 
LDIR 


LHLD 
POP 
IMP 


CALL 
CALL 
INX 

DINZ 


LXI 
POP 


Base conversion. ACCUM<—-UPTACK (BASE, LENGTH, ARG) 


‘it ‘Se ‘RS “e ‘AR 


‘22 ‘Re 


BR = LENGTH of ARG in bytes: 0 < LENGTH < 256 
HL -> ARG: byte string representing digits in 
base BASE: oO <= byte < BASE. 


in 322 byte accumulator 


‘ae ‘88 ‘OS ‘2S ‘OR Se (RE ee eR 


os Zilog 

M RR (HL) 

nn JR C,nn 

nn JR NC,nn 3 

ped illicit ABA ath fe? se a aap gpa parc ph cg apa cbt Bt ets hc Sa a ice ee Sh tt : 

IB Z80O 

Ic UPTACK 

N RIPLO sroutine to clear accumulator 
PSW 
B 
D 
BASE sbase used for shifting 
BASER 3;-.-to refresh BASE 
ARGP ;Ssave argument pointer 
B s;save loop control 
H, ACCUM ;Clear accumulator 
D, ACCUM+1 
Boi 
a 
M.A 
ARGP srestore pointer 
B srestore loop control 
UPTKO2 
MULTS32 smultiply accumulator by base 
ADD3S2 sadd arg digit to accum 
H snext arg digit 
UPTKOL 
H, ACCUM ;Point to ACCUM on return 
D 


(Continued on page 84) 
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De Dore Journ: 


For Users of Small Com) 








A Reference Journal for Users of Home Computers 


Volume Six 


JER The Porke’s Computer Company Series 


Vol. 1 1976 

The material brought together in this volume chronicles the 
development in 1976 of Tiny BASIC as an alternative to the 
“finger blistering,’’ front-panel, machine-language program- 
ming which was then the only way to do things. This is al- 
ways pertinent for bit crunching and byte saving, language 
design theory, home-brew computer construction and the 
technical history of personal computing. 

Topics include: Tiny BASIC, the (very) first word on CP/M, 
Speech Synthesis, Floating Point Routines, Timer Routines, 
Building an IMSAI, and more. 


Vol. 2 1977 

1977 found DDJ still on the forefront. These issues offer re- 
finements of Tiny BASIC, plus then state-of-the-art utilities, 
the advent of PILOT for microcomputers and a great deal of 
material centering around the Intel 8080, including a com- 
plete operating system. Products just becoming available for 
reviews were the H-8, KIM-1, MITS BASIC, Poly Basic, and NIBL. 
Articles are about Lawrence Livermore Lab’s BASIC, Alpha- 
Micro, String Handling, Cyphers, High Speed Interaction, 
1/O, Tiny Pilot & Turtle Graphics, many utilities, and even 
more. 


Vol. 3 1978 

The microcomputer industry entered its adolescence in 1978. 
This volume brings together the issues which began dealing 
with the 6502, with mass-market machines and languages to 
match. The authors began speaking more in terms of tech- 
nique, rather than of specific implementations; because of 
this, they were able to continue laying the groundwork in- 
dustry would follow. These articles relate very closely to what 
is generally available today. 

Languages covered in depth were SAM76, Pilot, Pascal, and 
Lisp, in addition to RAM Testers, S-100 Bus Standard Propos- 
al, Disassemblers, Editors, and much, much more. 


Dr. Dobb's Journal 


BOUND VOLUMES 


Every Issue Available For Your Personal Reference. 


Vol. 4 1979 


This volume heralds a wider interest in telecommunications, 
in algorithms, and in faster, more powerful utilities and lan- 


_ guages. Innovation is still present in every page, and more 


attention is paid to the best ways to use the processors 
which have proven longevity—primarily the 8080/Z80, 
6502, and 6800. The subject matter is invaluable both as a 
learning tool and as a frequent source of reference. 

Main subjects include: Programming Problems/Solutions, 
Pascal, Information Network Proposal, Floating Point Arith- 
metic, 8-bit to 16-bit Conversion, Pseudo-random Se- 
quences, and Interfacing a Micro to a Mainframe—more than 
ever! 


Vol. 5 1980 

All the ground-breaking issues from 1980 in one volume! Sys- 
tems software reached a new level with the advent of CP/M, 
chronicled herein by Gary Kildall and others (DDJ's all-CcP/M 
issue sold out within weeks of publication). Software porta- 
bility became a topic of greater import, and DDJ published 
Ron Cain’s immediately famous Small-C compiler—reprinted 
here in full! 

Contents include: the Evolution of CP/M, and CP/M-Flavored 
C Interpreter, Ron Cain’s C Compiler for the 8080, Further 
with Tiny BASIC, a Syntax-Oriented Compiler Writing Lan- 
guage, CP/M-to-UCSD Pascal File Conversion, Run-time Li- 
brary for the Small-C Compiler and, as always, even more! 


Vol. 6 1981 

Microcomputing was entering a technical maturity in 1981, 
while continuing to break new ground. This volume includes 
Dr. Dobb’s first all-FORTH issue and the first Dr. Dobb’s 
“Clinic’’ columns. There is continued coverage of CP/M and 
Small-C development, along with J.E. Hendrix’s Small-VM 
and Santa Barbara Tiny BASIC for 6809—all here in one giant 
volume. 

Articles include: Pidgin—A Systems Programming Lan- 
guage, The’ Conference Tree, Write Your Own Compiler with 
META-4, several exciting Z80 utilties, North Star tidbits, and 
more! 


YES! [] Please send me the following Volumes of Dr. Dobb’s Journal. 


=" [] ALL 6 for ONLY $125, a savings of over 15%! 








Vol. 1 Xx S2395-— 
; W6ln2i a me eS = 
Please charge my: [|] Visa [| MasterCard |] American Express Vol. 3 x S09: 75 = 
lenclose {J Check/money order Vol. 4 e822 75 = 
‘ae Vol. 5 x $23:575-= 
Card # Expiration Date wore Cae are 
All 6 x $125.00 = 
Signature 
Add Sub-total $ 
Name ress : 
Postage & Handling 
City State. . Zip Must be included with order. 





Mail to: Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 


Allow 6-9 weeks for delivery. 


Please add $1.25 per book in U.S. 
($2.00 each outside U.S.) 


TOTAL $ 
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File E ncryption (Listing continued, text begins on page 44) 
Listing Twelve 


POP B 
POP FSW 
RET 
MULTS2: 
PUSH RB ssave loop control 
PUSH H s;save arg pointer 
CALL RIPLO sClear work area 
MVI B38 sshifter loop control 
MULTOI1: 
LXI H, BASE 
ANA 3 sclear carry 
RARR MM sif least signif bit is on 
JRC PARTIAL s--SuUM Partial product 
MUL TO2: 
PUSH B 
MVI B, 32 
LXI H, ACCUMN+31 
ANA A 
MULTOS: 
RALR M sdouble multiplicand by shift 
DCX H 
DJINZ MULTOS 
POP B 
DJINZ MULTOIL | 
LXI D, ACCUM sreturn product to ACCUM 
LXI H, WORE 
ixI ge 
LDIR 
LDA BASER srefresh base 
STA BASE 
POP H 
POP B 
RET 
PARTIAL: 
LXI D, WORK+31 s;add ACCUM to WORK 
ixXI H, ACCUM+31 
FUSH E 
MVI By. 
ANA 8 
PARTOI: 
i DAX D 
ADC M 
STAX D 
DCX D 
DCX H 
DJINZ PARTOL 
ein B 
JMP MULTO2 
ADD32: 
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LxXI D, ACCUM+31 

LDAX D 

ADD M 

STAX D 

JRC ADDOS 

RET 
ADDOS: 

PUSH B 

MV TI BS] 
ADDO? : 

DCX D 

LDAX D 

ADI i 

STAX D 

JRNC ADD10 

DJINZ ADDO? 
ADDIO: 

POP B 

RET 
ARGP DS z ssave pointer to argument 
BASE DS i shold base for shifting 
BASER DS 1 shold original base for refresh 
ACCUM DS ae s; accumulator 

COMMON /WORK/ 
WORE DS iG scommon work area 

END End Listings 












AVAILABLE 


Back Issues 


1982 


The BDS C Compiler... 


“Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent.” 


That’s what InfoWorld said when we introduced 
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the BDS C Compiler four years ago. Today, the 
updated BDS Version 1.5 is even better. 

First, the BDS is still the fastest CPM/80-C 
compiler available anywhere. 

Next, the new revised user’s guide comes 
complete with tutorials, hints, error messages and an 
easy-to-use index — the perfect manual for beginner 
or seasoned pro. 

Plus, the following, all for one price: Upgraded file 
searching ability for all compiler/linkage system files. 
Enhanced file I/O mechanism that lets you 
manipulate files anywhere in your system. Support 
system for float and Jong via library functions. An 
interactive symbolic debugger. Dynamic overlays. 
Full source code for libraries and run-time package. 
Sample programs include utilities and games. 

Don’t waste another minute on a slow language 
processor. Order now. 

Complete Package (two 8”SSDD disks, 181-page manual): 

$150. Free shipping on prepaid orders inside USA. VISA/MC, 
C.O.D.’s, rush orders accepted. Call for information on other 
disk formats. 
























BDS C is designed for use with CP/M-80 operating systems, version 2.2. 
or higher. It is not currently available for CP/M-86 or MS- DOS. 





BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 


(617) 576-3828 
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A Small-C Concordance 


(Senerator 


he program presented in this ar- 

ticle builds a concordance of a 

source text file. Included in 
other source programs, it can become a 
high-level software tool. The utility ex- 
tends an internal sort capability, which 
incorporates the use of word lists with- 
in the sort input phase. 


What Is a Concordance? 

The root word, concord, implies agree- 
ment. If a scholar studies the collected 
works of an author and finds that an 
excerpt from one portion is nearly 
identical to others, then he or she says 
that they are in concordance. If the 
passages are examined and key 
phrases listed alphabetically, referring 
back to their source, then this second- 
ary work is called a concordance. In 
effect, the efforts of the scholar to doc- 
ument the agreement of the various 
passages takes on the name of that 
agreement. 

An early illustration of a concor- 
dance is a scholar’s examination of the 
Bible; another, an analysis of the com- 
plete works of Shakespeare. Today, 
any cross-reference is a proper subset 
of a concordance, whose full meaning 
is now much broader. 


How Is a Concordance Used? 

A concordance is used when you want 
to index something back to a source 
work or collection of works. It isn’t a 
data base program, and it doesn’t mod- 
ify files or cause you to do so; it ex- 
tracts the words you decide to extract 
(or excludes those you desire left out) 
and produces an index to their source. 


One Example 
While not referring specifically to a 


by John Staneff 





John E. Staneff, Jr., Rt. 1, Box 801, 
Ellensburg, WA 98926. 
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concordance generator and while re- 
viewing another kind of software prod- 
uct entirely, Jerry Pournelle, in the 
April 1983 BYTE (see especially p. 
348), described an excellent use for a 
concordance. In addition to being a 
columnist for BYTE, Pournelle is a 
well-known science fiction writer; he 
wanted to document his cast of charac- 
ters, presumably for reuse in future 
writings. What Pournelle attempted to 
do was to extract his characters and to 
index them back to their source. 

If he had had a concordance genera- 
tor available, he could have located his 
characters by line number, page num- 
ber, or paragraph (he even could have 
picked them up by chapter or book). If 
he wished, he could have used only 
those words that occurred in an inclu- 
sionary list, or he could have selected 
only those words that did not occur in 


an exclusionary list. He could have 
manually verified and edited the resul- 
tant data structure as required. Used 
in this way, the concordance becomes a 
high-level index to the original work. 


Another Example 

If a book publisher produces a quality 
text, the publisher usually provides an 
index to it. Traditionally, this requires 
that a highly skilled proofreader actu- 
ally read the manuscript and draw out 
words that ought to be indexed. These 
words then are sorted, and the sorted 
list is reviewed for each word’s worthi- 
ness for inclusion in the index. Finally, 
the index is prepared. 

This process is unlikely to provide an 
accurate or adequate index. (Have you 
turned to a book’s index only to find 
that either it doesn’t exist or it’s incor- 
rect?) If the typesetting is redone as 


1. Begin or set up the tree, which is re-executable during the program execution: 


cninit(list,type,dupl); 
where 


“list’ is the character array containing the file 
name of the keyword list, 


‘type’ is the integer type of the list, 





0 indicates that lists aren’t used, 
1 is exclusionary, and 
2 is inclusionary, 

‘dupl’ is the integer indicator for duplicates, 
0 is to keep all token-reference pairs, and 
1 is to exclude duplicates 


. Push data onto the tree, requiring both the key word and the reference point: 


cnbuild(linenumb, text) ; 


where ‘linenumb’ is the integer reference, and 
‘text’ is the character array of text, each string 
is terminated by a null, 


. Order the tree, producing a sequence list of the sorted tree: 
cnorder( ); 


. Pop data off the tree, returning the key word and associated reference pointer: 


i = cnxtrct(token); 
where ‘i’ is the integer reference pointer, and 
‘token’ is the character array containing the 
key word returned (terminated by a null © 


character). 


Table 
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the work is revised, it is likely that the 
cross-references may not be corrected, 
or if corrected, not thoroughly. 

If book indexing were automated, 
using inclusionary lists developed indi- 
vidually for several broad disciplines 
(such as medicine, computing, etc.), 
perhaps this ambiguity of publishing 
could be brought under control. Here a 
concordance generator could be used 
to great advantage. 


Yet Another Example 

How many students type their class 
notes? How many of them do so on 
their personal computer? And how 
many of them keep the files around af- 
ter printing off the notes? If the notes 
were stored by lecture and indexed 
through a concordance generator, then 
the problem of how to study for an 
exam on a specific topic would be 
much simplified. (Just think of the ad- 
vantage in an open book test!) 

Going beyond the classroom, once 
the student becomes a doctor, lawyer, 
accountant, or computerist, wouldn’t 
those indexed class notes be of interest 
in solving problems in professional 
practice? And why limit usage to scho- 
lastic topics? A recipe collection, treat- 
ed as one large work, could surely be 
indexed as to all the various ways to fix 
hamburger. 


A Concordance Is a Finding Tool 
Think of the concordance routines as a 
high-level software tool. By them- 
selves, they don’t do much, but incor- 
porated into a larger source program, 
they can perform significant tasks. The 
simplest way of using the routines is to 
treat them as an internal sort, keeping 
everything sent to them and returning 
it all at the end. (The only limit to this 
would be memory space. ) 

In such a simplistic view, each line 
of a poem might be sent separately, 
and the subsequent report would list 
only those lines occurring multiple 
times within the poem. Or perhaps a 
corporate branch office location table 
needs to be sorted. Because the rou- 
tines are modular and includable, they 
are also reusable. The office phone 
book might be sorted by name, printed, 
and resorted by extension, all within 
the same program execution. 

By increasing the level of sophistica- 
tion of the calling module and electing 
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to perform inclusionary or exclusion- 
ary checking, the routines can lead to 
much greater rewards. Perhaps the 
greatest reward comes when a series of 
steps culminates in a short list of par- 
ticularly sensitive information drawn 
from a great amount of raw data. By 
cross-checking the index for the pres- 
ence of two or more key words (or 
phrases) that refer to a single passage, 
one might quickly find answers to 
questions usually considered difficult 
to solve. 

For instance, in what chapter of the 
Mabinogion does King Aurthur go 
hunting and is followed by Guenevere? 
If an index isn’t handy, one might have 
to do a bit of reading! A more practical 
application might be to narrow down 
several symptoms to aid in illness diag- 
nosis or to correlate law cases relating 
to a given set of circumstances. A pro- 
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gram that combines lists of a general 
nature (words like a, the, an, etc.) to 
condense a work and build an index, 
then passes that result against words of 
a specific nature (words like compiler, 
ALGOL, etc.) to refine the subset, and 
finally correlates those results by refer- 
ence pointer is a powerful finding tool. 


Using Lists To Select Words 

The concordance routine, at the pro- 
grammer’s option, can use an external 
word list to govern its word storage ac- 
tivity. Two different kinds of lists may 
be used: an inclusionary list and an ex- 
clusionary list. 

In fact, the difference between the 
two kinds of lists rests in how we hu- 
mans regard them. Any word list can 
be used as either inclusionary or exclu- 
sionary at the programmer’s option (or 
user’s, if the choice is selected by an 


| —__ Location 


Low Link 





Yes Location 


High Link 





Pop Location 


From Stack 





Figure 1 
Procedure To Build Sequence List 
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externally supplied parameter). 

The basic word list is simply con- 
structed. Each entry is a word: an 
ASCII text string on a line by itself. 
The whole of the list is sorted alpha- 
betically, and no duplicates’ are al- 
lowed. There are no special characters 
or hidden meanings and no trick start 
or end words; the list starts with the 
first word (on the first line) and ends 
with the end of file (no more lines in 
the list). 

How the word list is used depends on 
the way it is described to the routines. 
If it is considered exclusionary, then 
only key words that do not appear in 
the list are accepted into the concor- 
dance routine’s storage. If it is consid- 
ered inclusionary, then only key words 
that appear in the list are accepted. In 
the end, only those words that have 
been accepted appear in the index. 


Location 


= 


Root 


(= 


Compare 
New Pair To 
Pair At Node 


Are 
Equals 
Allowed 
? 


By definition, if a data file is passed 
against an inclusionary list to build an 
index and that index is passed against 
the same list used as an exclusionary 
list, a net loss of the entire data file will 
occur with no resultant index. Howev- 
er, it may be desirable to filter data in 
several steps, using. exclusionary lists, 
and then to draw upon inclusionary 
lists to extract a desired index. (Con- 
ceivably, separate inclusionary lists 
can be used to build several indexes, 
which can then be merged to provide 
an interdisciplinary index. ) 

This technique is especially useful 
when the initial data file is quite large 
and has an abundance of noise words 
(such as articles, adverbs, and so on). 
For the final pass, the indexer may se- 
lect from a number of specially pre- 
pared and maintained “stock” word 
lists, each word list corresponding to a 
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Figure 2 
Procedure To Add To Tree 


88 





discipline’s jargon or other criteria. 

If multiple word lists are used to fil- 
ter a source file, they may contain 
overlapping words. As long as the word 
lists are used consistently (i.e., both 
used as exclusionary lists), this will not 
present a problem. If they contain an 
overlap and aren’t used consistently, 
the result is predictable: the overlap- 
ping words will not appear in the final 
result. One technique to “discover” 
overlapping words is to perform a sim- 
ple cross-reference on one of the word 
lists while using the other word list as 
an inclusionary list. The result is a list 
of words present in both lists. 

Certainly concordances may be pre- 
pared without using word lists, but em- 
ploying the powerful utility that word 
lists can provide makes them invalu- 
able tools. 


The Programs 

Presented here are three modules writ- 
ten in Small-C and developed on the 
early CP/M version as supplied by The 
Code Works. They are CNDEF.C, 
CNCORD.C, and CONCRD.C (List- 
ings One, Two, and Three, pages 108, 
108, and 109, respectively). 

The CNDEFC module sets up de- 
fault variables required by the 
CNCORD.C module. 

The CNCORD.C module builds the 
actual concordance, accepting tokens 
given it by the mainline program and 
stuffing them into internal storage. A 
reference number is also filed and can 
be used as line number, page number, 
paragraph number, chapter number, 
or entire work number. 

The CONCRD.C module is a main- 
line program that makes use of the 
concordance modules. It is intended 
for demonstration only, producing a 
simplified concordance of a short text 
file. CONCRD.C also uses the modules 
as the heart of a cross-reference pro- 
gram, the major difference being that 
a concordance program retains the 
source lines while a cross-reference 
program retains references to already 
printed lines. The four calls to 
CNCORD.C are described in the table 
(page 88). 


The Algorithm 

Internally, the CNCORD.C routine is a 
binary tree sort. It interleaves source 
data acquisition with sorting and, upon 
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comand, dumps the tree’s contents 
back to the caller. This technique is 
fairly quick. Once the data is read (and 
listed, if desired), the retrieval of sort- 
ed tokens proceeds rapidly. The appar- 
ent speed is the result of overlapping I/ 
O delays with CPU activity in building 
the tree. 

The attached flow charts (Figures | 
and 2, pages 89 and 90) describe the 
tree building and retrieval processes. 
Entries are added to the tree by finding 
an appropriate location in which to add 
the new token-reference pair and 
“linking” it in through the low and 
high tree links. Duplicate pairs are 
added only if the initialization call has 
specified that duplicates are allowed; 
when duplicates are added, they are 
considered higher than current entries. 

Finding the correct location in 
which to add a pair is a process of test- 
ing each node for its relative value to 
the new pair, taking the low link if the 
new pair is lower and the high link oth- 
erwise. When there is no link address 
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to follow (because its value is zero), 
then that link address is made the new 
location, and the new pair is thereby 
linked. 

Determining the order of the tree is 
an exercise in pushing and popping 
stacks. At each node, starting from the 
root (first in table), the node is tested 
for having a low link. If one is present, 
the node’s address (table entry loca- 
tion) is pushed onto the stack, the low 
link is followed, and the process is re- 
peated at the new node. If there isn’t a 
low link, then the node’s address is 
added to the sequence list. Next, if a 
high link is present, it is taken, with the 
process repeated (looking for a lower 


entry) from that node. If neither a high | 


nor a low link is present, the stack is 
popped once, and the recovered ad- 
dress is added to the sequence list. The 
process continues from the point where 
it looks for a high link. 

The process includes a sequence list, 
for the convenience of the output rou- 
tine (cnxtrct(token)). When required, 





You Read Dr. Dobb’s Journal 
And You Don’t Subscribe? 


the programmer can restart the output 
by resetting the list pointer (cnthrdpt) 
to zero. 

A special routine included in the 
CNDEEF.C listing (usrvfy(token)) is 
used to arbitrarily exclude any key 
word that may be identified without 
needing to be in a list. The version sup- 
plied will exclude all one- and two-let- 
ter words and any “word” that con- 
tains a nonalphabetic character. A 
sample version to accept all key words 
presented to it is also provided in the 
comments of the supplied routine. 
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Bttype verse.txt 

Here with a loaf of bread beneath the bough, 
A flask of wine, a book of verse—and thou 
Beside me singing in the wilderness— 

And wilderness is paradise enow. 


‘“How sweet is mortal sovranty!’’—think some: 
Others—“‘How blest the paradise to come!” 
Ah, take the cash in hand and waive the rest; 
Oh, the brave music of a distant drum! 


Bt 
The Input Text 


Bfconcrd 
Input file name: verse.txt 
Exclusionary list name: xcl.|st 


BENEATH 

Here with a loaf of bread beneath the bough, 
BESIDE 

Beside me singing in the wilderness— 
BLEST 

Others—“How blest the paradise to come!”’ 
BOOK | | 

A flask of wine, a book of verse—and thou 
BOUGH 

Here with a loaf of bread beneath the bough, 
BRAVE 

Oh, the brave music of a distant drum! 
BREAD 

Here with a loaf of bread beneath the bough, 
CASH 

Ah, take the cash in hand and waive the rest: 
DISTANT 

Oh, the brave music of a distant drum! 
DRUM 

Oh, the brave music of a distant drum! 
ENOW 

And wilderness is paradise enow. 
FLASK 


A flask of wine, a book of verse—and thou 


Brtype xcl.lst SOME 
ALL TAKE 
AND THE 
COME THERE 
FINI THRU 
HAND Te 
HERE WHEN 
OTHERS wil 
OUR 

REST Br 


The List of Words to Exclude 


LOAF 
Here with a loaf of bread beneath the bough, 
MORTAL 
“How sweet is mortal sovranty!—think some: 
MUSIC : 
Oh, the brave music of a distant drum! 
PARADISE 
And wilderness is paradise enow. 
Others—**How blest the paradise to come!” 
SINGING 
Beside me singing in the wilderness— 
SOVRANTY 
“How sweet is mortal sovranty!’’—think some: 
SWEEL 
“How sweet is mortal sovranty!’’-think some: 
THINK 
“How sweet is mortal sovranty!””—think some: 
THOU 
A flask of wine, a book of verse—and thou 
VERSE 
_A flask of wine, a book of verse—and thou 
WAIVE : 
Ah, take the cash in hand and waive the rest: 
WILDERNESS 
Beside me singing in the wilderness— 
And wilderness is paradise enow. 
WINE 


A flask of wine, a book of verse—and thou 
Bt 


The Output from CONCRD.C 


90 


Dr. Dobb’s Journal, August 1984 






























Thanks to YOU... .. We're Growingss 2.” 
with YOU and your Computer... 

LEO ELECTRONICS, INC. 

P.O. Box 11307 

Torrance, CA. 90510-1307 


Tel: 213/212-6133 800/421-9565 
TLX: 291 985 LEO UR 


We Otfer.. .: PRICE: .. QUALITY... ... 


GGM — FORTH™ has HELP* 
for Z80' using CP/M? 


GGM—FORTH, a complete software system for 
real-time measurement and control, runs on any 
Z80 computer under CP/M using an extended fig- 
FORTH vocabulary. 


GGM—FORTH features: 


e Open multiple CP/M files, in any combination 
of direct-access and sequential-access, fully 
compatible with all CP/M utilities 


e Char. in/out uses CP/M console, lister, file, or 
port 


e On-line HELP* provides instant access to defi- 
nitions in the run-time GGM—FORTH dic- 
tionary 


e HELP” file is easily extended to include user 
definitions using HELP* utility 








PERSONAL SERVICE 





64K UPGRADE 


9 Bank (IBM PC) $43.65 (150ns) 
$41.85 (200ns) 
4164 (150ns) $4.85 ea. 
(200ns) $4.65 ea. 
8 Bank (other PC) $38.80 (150ns) 
$37.20 (200ns) 
4164 (150ns) $4.85 ea. 
(200ns) $4.65 ea 


256K ‘‘Mother-Saver’’ Upgrade 
8 - 256K - (150ns) $400.00 














e HELP* is available during full-screen editing 6116P-3 — $4.40 2732 — $3.95 
Complete system and manuals $150. 2716 — $3.20 2764 — $7.00 
Manuals only: $ 20. TMS-2716 — $4.95 27128 — $24.00 
Introductory System: ee, Ud We accept checks, Visa, Mastercard or Purchase Orders 

from qualified firms and institutions. U.S. Funds only. 

GGM SYSTEMS, INC. (617) 662-0550 Call for C.0.D. California residents add 62% tax. 





135 Summer Ave., Reading, MA 01867 


Shipping is UPS. Add $2.00 for ground and $5.00 for 
air. All major manufacturers. All parts 100% guaranteed. 
Pricing subject to change without notice. 





| 'Z80 is a trademark of Zilog, Inc. 
2CP/M is a trademark of Digital Research, Inc. 





Circle no. 25 on reader service card. Circle no. 32 on reader service card. 


Z80* SINGLE BOARD COMPUTER! 


64K RAM — 80 x 24 VIDEO DISPLAY — FLOPPY DISK CONTROLLER 
RUNS CP/M* 2.2! 















$29.95 | NEW 


(BLANK BOARD WITH 
DATA AND ROM'’S.) PRICE 
GROUP SPECIAL: 
BUY 6 FOR $165! 
USES EASY 


UNBELIEVABLE LOW PRICE!!! GIANT COMPUTER MANUFACTURER’S SURPLUS! 


Recently Xerox Corp. changed designs on their popular 820* computer. These prime, new, 820-1 PC boards were declared as surplus and sold. Their loss is your gain! 
These boards are 4 layers for lower noise, are solder masked, and have a silk screened component legend. They are absolutely some of the best quality PC boards we 
have seen, and all have passed final vendor QC. Please note, however, these surplus boards were sold by Xerox to us on an AS IS basis and they will not warranty nor 
support this part. 

We provide complete schematics, ROM’S, and parts lists. If you are an EXPERIENCED computer hacker, this board is for you! Remember, these are prime, unused PC 
boards! But since we have no control over the quality of parts used to populate the blank board, we must sell these boards as is, without warranty. You will have to do any 
debugging, if necessary, yourself! 


*CP/M TM OF DIGITAL RESEARCH INC. (CALIF.) 820 TM OF XEROX CORP. Z80 TM OF ZILOG WE ALSO CARRY LS, Z-80, EPROM’S, ETC. SEND FOR FREE CATALOG! 


ADD $2 PER PC BOARD FOR SHIPPING. (USA and Canada) 


io G Mi : C @ 0 P. 0. Box 280298 Dallas, Texas 75228 
o Ue (214) 271-5546 Prams (| 





BOARD MEASURES 
11%"% Te" 











ALL ORDERS WILL BE 
PROCESSED ON A STRICT, 

FIRST COME, FIRST SERVED 
BASIS! ORDER EARLY! 


































TERMS: Orders over $50 add 85¢ insurance. No COD. Tex. Res. Add 6% 
Sales Tax. Subject to prior sale. Foreign orders: US funds only. We 
cannot ship to Mexico. Foreign countries other than Canada add $6 per 
board shipping. 










Circle no. 7 on reader service card. 





Concordance (Text begins on page 86) 
Listing One 








/* 

* concordance global definitions and 

* variables. 

* 

* Includes the usrvfy() routine, which should be 

* custom modified by user to further analyze tokens before 

* they are filed into the sort tree. 

%/ 

#define CNKEYSIZ 400 /* number of keywords possible ¥*/ 
#define CNKEYSPC 2000 /* amount of keyword space */ 
#define CNTKNLIM 1900 /*® number of tokens that can be sorted */ 
#define CNTKNLM Lag? /* stack size, above minus one */ 
#define CNTKNSPC 12000 /* size of sort tree char data */ 
#define CNLNSZ 80 /* assume each line of 80 bytes ¥*/ 
#define CNDLSZ 30 /* size of delimiter list */ 


int cnexcl [CCNKEYSIZ15 /* pointer list #/ 
Char cnextxtCCNKEYSPCI3 /* Text pointed to */ 


int cnexhis$ /* Search - high #*/ 

int cnexlo; /* Search —- low #*/ 

int cnlsfl15 /* Keyword file number ¥*/ 

int cnlstp$ /*® List type */ 

int cnsveqls$ /* 1 if save equals (token and reference), else O */ 

char cndelm{€CNDLSZ]3 /* Delimiter list ¥*/ . 
char cntreedtCCNTKNSPC]I3 /* token sort tree storage area */ 


int cntreerfCCNTKNLIM]5 /* storage for references */ 

int cntreelcCCNTKNLIM]$; /* pointers to text data for tree entry */ 

int cntreehilCCNTKNLIM]$; /* pointer to next high in tree */ 

int cntreeloLCNTKNLIM]$ /* pointer to next low in tree (or equal) #/ 

int cntreeskCCNTKNLMI]3; /* stack of return-to pointers */ 

int cnthreadLCNTKNLIMIs /* pointer list showing sequence of sort-tree ¥*/ 





int cnbegin; /* sort-tree indicator */ 

int cnposs /*® current location in sort-tree */ 

int cnsub$3 /* for threading tree */ 

int cnsubrs /* current sort-tree subscript */ 

int cnstart; /* where sort-tree begins */ 

int cnstack$ /* number items in return-to stack */ 

int cnthrdpts /*® current location in sequence of sort-tree */ 


usrvfy (token) 
char *token$ 
{ 


4 * 
* User verification routine, should be in user’s application 
* module (or in cndef.c). In simplest form, is as follows: 


% 
= usrvfy (token) 

* char *tokens; 

* { 

* return(QO) 3; 
ab % 


4 
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This simple version includes all commers. 


The version supplied here excludes (returns a 1) if the 
token is less than 3 characters long, or if all characters 
in the token aren’t in range ’A’® to ’Z*. Note that by 
the time that tokens come here, they are all uppercase. 


* * ek KK K 


/ 
imt i5 
char c$ 
i=O$5 
while ((c=token(filJ)'=0) ¢€ 
if (c<’A*) return(1)s$ 
27. .ter’? Z° 7. retern (i) 5 
i++; 
} 
if (1<¢=2) return(1); /* keep if three characters or more */ 
return (QO) § 
} 
/* end of cndef.c */ End Listing One 


Listing Two 


/* 

Main code segment of the concordance routine. 
Requires cndef.c or equivalent to define the 
Global variables and sizes. 

User may wish to rewrite the usrvfy() routine, 


and to extend delimiter list in cninit(). 
# 


* * KK K 


cninit (file, lsttype, savsw) 
char *files 
int lsttype, savsw3 


{ 

/* 

* Initialize routine for concordance. 

* 

* "file" is filename of keyword file 

* "Isttype" is a switch relating to the keyword file 

* oO = not used 

% 1 = acts as an exclusionary list 

¥ 2 = acts as an inclusionary list 

* "Savsw" 15 a Switch relating to the need to retain duplicate references 
¥ O = keep all references 

# 1 = keep only one token per reference number 

te 

* Returns hoot ak 

* 1 if istfile not found (+ message on screen) 
%/ 


int - Flag, .cs, Locs 


flag = O3 /*® assume all ok */ 

cnlstp = O35 /*® default is list not used */ 

if (lsttype==1) cnlstp=15 /*® Exclusionary */ 
if (listtype==2) cnlstp=2: /* Inclusionary */ 


if (cnlstp!=0) ¢ 
(continued on next page) 
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Concordance (Listing continued, text begins on page 86) 
Listing Two 


cnlsfl=fopen(file,"r")35 

if (cnlisfl==0) ¢f 
puts ("Can’t open keyword file") § 
putchar (CR) $5 
flag=flagtl5 


2 
& 
a 


cnsveqgls=0; /* default is to keep everything */ 
if (savsw==1) cnsveqls=1:5 /* except unless requested otherwise *. 
/* 


* The delimiter list is a string of those characters 


* which act as token separators, such as spaces and 
* commas. 


%/ 
cndelmCOO j=" 75 /*® space */ 
cndelm([O1]=’ * 5 /%* tab */ 


cndelmCO2]=’,’ 
cndelmLO3]=’. 
cndelm(C04J=’ 
cndelmC0OS]=’ 


cndelmLOéJj=" !* 
cndelm[07]=" ?* 
cndelmCO8IJ=’ —’ 
cndelm([09]=’ Z?* 
cndelmLl10]=* $* 
cndelm(lilJj=’ #’ 
cndelmC1i2J]=’ *’ 
cndelmL1i3 j=" &* 
cndelm[L14J]=’ (° 
cndelmCiSj=")?’ 
cndelmliéj=’ &* 
cndelmLl1i7 j=’ =’ 


/*® comma */ 
/*® period #/ 
/*% semi-colon */ 
/%® colon */ 


> 


* 


se Ss 38 ws 


> 


/* exclamation point */ 
/* question mark */ 
/* dash */ 
/* percent */ 
/* dollar sign */ 
/* pound sign */ 
/* asterisk */ 
/* ampersand */ 
/* open parenthesis */ 
/* close parenthesis */ 
/*% at sign */ 
/* equals sign */ 
cndelml181=’ +’ /* plus sign */ 
cndelmLi9]=’%~* /* tilde #*/ 
cndelm[20]=05 /*® end of list */ 
/* 
* Note, the list might need to be extended, if so, 
* then also change the definition in cndef.c. 


wu BS ee SS we Ss we 8 wre ee ee ee we ee Oe 8 we eS 


% 
* If the keyword list is available (file exists), 

* then read it into the stacks. Note that the routine 
* assumes that the input file is ordered. This would 
* require the user to pre-sort this files not a bad 

* 1dea after any text-editing session. 


cnexlo=O35 
cnexhi=0O3 
Laken Sip ars /*® list should be used */ 
if (flag==0) ¢ 
/* file 1s open... */ 
loc=05 /* main stacks subscript */ 
cnexcl£€++cnexhid=locs /* starting loc of text #*/ 
while ((c=getc(cnilsfl))20) ¢ 
it Ac =ER? 
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if {tera "as & Cesta" 27°79 ce cK 325 
/* make table all uppercase */ 
cnextxtDLloct++J=c35 
™ 
else ¢ 
cnextxtDCloc++I=05 
cnexcl €++cnexhi J=locs 
} 
/* at end of file, cnexhi is one higher than # keywords */ 


ae 


/* 
* Initialize the sort-tree parameters too 
*/ 


cnintree()$ 


/* 
* End of Initialization 


%/ 


return(flaqg)s 


+ 
f 


cnbuild(refr,text) 
int refrs 

char *texts 

{ 


“~ 
* 


Routine to extract each token from the line "text", and to include 
it in the sort-tree depending on the presence of the token in the 
keyword list, and the exclude/include philosophy selected by the 
user. 

The reference, "“refr", is included along with the text as its 
filed in the sort tree. This variable can be what ever the user 
decides it to be, for instance it can be a line number or a page 
number . In a more sophisticated approach, it can be used as a 
paragraph number, chapter or verse number, or can be another type 
of reference (ie: part of a linked list). 


* * KK KK KK K OK 


s, 
N 


char tokenL[30]5 
ETE Lest 6 3.9 5 NS 


int p.qs 
char rs 
p=05 
q=05 
while ((r=textipt++]) '=0) qtts 
1 = p-ls /* length of text/line including last null */ 


x=15 
while (1) ¢ 
_#/*% find and separate tokens */ 
1=cntokn (x, text)s /*® find next delimiter */ 
if (1==0) 1=15 /* default to end of line if none found */7 
/* move "text" from "x" to "1" to "token" */ 
p=x-1s5 
q=05 
while (p< (i-1)) ¢ 
Pere Ce (Continued on next page) 
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Concordance (Listing continued, text begins on page 86) 
Listing Two 


token(lq+t+ J=r 5 


> 


tokenl€qI=9035 


cnuprcse(token)s /* convert to uppercase */ 
/* %/ 

n=cnfind (token) ; 7* include/exclude test */ 
if (nm==0) ¢€ /*® not excluded */ 


m=usrvfy (token) 5 
/*® let application decide also */ 


if (m==0) ¢€ /*® still ok */ 
cnstuff (refr,token)s 
H 
: 
X=1+15 
if (x>=1) breaks /* continue to end of line */ 


LZ 
uy 


cntokni(cnstart, text) 
int cnstarts 

char *texts 

{ 


/* 


* Returns the positional location of the next delimiter character 


* ok 


* position, including "cnstart" as supplied by caller. 
#/ 


ane Pais KS 
char c.S5 


1=05 
while (i<(cnstart—-1)) ¢ 


in the text string, from the starting position. Returns zero 
if none found. All displacements are +1 relative to actual 


/* find out if "censtart”" 1s past end of string */ 


c=textlit++]$ 


if (c==0) return(0O); /* Yep, too short */ 


+ 
J 


While ((c=textfiJ)!'=0) ¢ 
/* look at balance of string */ 


while ((s=cndelm[ j++])!'=0) ¢ 


if (c==s) return(++t+i)$ 4* delimiter found */ 


return(O) 5 /*® no delimiter found */ 


> 


cnfind (token) 
char *token; 
{ 


/* 


* Searches the keyword list to find a match to the token 
* presented. 
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Concordance (Listing continued, text begins on page 86) 


Listing Two 

* Success or failure to match the token is translated to 
* routine success or failure depending on "cnlstp”. 
* if cnlstp is 1, and token found, then exclude 

¥ 1, and token not found, then include 
* 2. and token found, then include 

* 2, and token not found, then exclude 
% 

* Returns 1 to exclude 

* 0 to include 

* 

* if "cnlstp" is 0, then always returns O (include) 
%/ 


int n,h,l,m,p,c, founds 
char test[30]5 


if (cnlstp==90) return(O);5 
found=05 /* assume not found */ 


/* following routine is a binary search */ 
h=cnexhis /* range limits */ 
l=cnexlos 
while (1) ¢ 

n=(h+1)/23 


m=cnexcl£ingds /* current pointer */ 
/* move in the pointed-to keyword */ 
p=05 


while ((c=cnextxt€mt++]) '=0) test€ptt+J=c;s 
testCpj=0; 


(* # / 
m=cnempr (token, test) $s /* FORTRAN-like compare */ 
if (m==0) ¢ /* Found: Tt. #/ 

found=15 

breaks 

> 


else if (m20) 1l=n35 

else h=ns 

if o-€4h=1 <=) 4s. 
found=905 /® not in list #7 
breaks 
} 


ut 


sg 
% 


Determine routine success based on following decision 
table: 


Keyword list not used Yo 
Exclusionary list maa: 4 
Inclusionary list cael eaters 
Token found in list mec = 


ene eee eS ED eS es ES ee er ee ere ee eee re ee ee ee ee ee ee ee ee ee ee ee ee ee Ce Hee ee Gee eee Ge ae ae ee oe ae 
ee SS SS A ee Se es ee SS Se See ES ee SS es ES eS Se Se Ee SS Se GS GEE ee GEES Ste ee GS a ee ee ee ee 


Ok, return (dO) X ee 
Fail, return(1) xX xX 


kK OR KK OR KOR OK KOK 


: 


if (¢cnlstp==1) & (found==1)) return(1); 
if ((cnlstp==2) & (found!=1)) return(1)s 
return(Q)5; 
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> 


cncmpr (a,b) 
char *a,*b;5 
{ 


/* 

* Performs a 
* Returns —1 
=e O 
x 1 
* 

* Comparison 
* so long as 
* either are 


%/ 


Pi fe Sy CGS 
char c,ds 


r=O5 
q=15 
s=0;5 
t=05 
while 


FORTRAN-like compare. 


if "a" is less than "b 
if "a" is equal to "b” 
if "a" is greater than 


is of strings, 
both are stili equal, 
O (NULL) 


(q==1) ¢ 

c=alCs++]5 

d=b(t++4+]5 

Et tends 
{® First -is 
r=-15 
qHO5 
> 

else if (cd) f 
4% First is 
r=15 
Q=05 
7 

else if (c==0) ¢ 
q=05 
} 


i. 
ne 


return(r)$ 


+ 
J 


cnuprcse (text) 


char #text$ 
{ 


/* 


* Routine translates 2all lower case 


* upper case 
*/ 

IAL is 

char c3 


1=O%8 
while 


uA 


equivalents. 


((c=textflijd)'=0) 7 
it Cleo at). Sc 
textfidj=c 
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from left to right, 


ee is i 


and then stopping if 


low */ 


high */ 


/* stop if end of 


letters to their 


continuing 


string */ 


= /* lower case found */ 
~—~Die se /* to upper */ 


(Continued on next page) 
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Concordance (Listing continued, text begins on page 86) 
Listing Two 


cnintree () 
{ 


/* Initialize the sort-tree */ 


cnbegin=15 
cnpos=05 


cnsub=135 /* use 0 as null pointer, thus start at 1 */ 
cnstart=15 


i} 
JS 


cnstuff (refr, token) 
int refrs 

char *tokens 

{ 


/*# Add token and reference to sort-tree #/ 
Ent .1,tSt,c, next.) inks 
ina 24 


char entry([30]5 


if (cnbegin==1) ¢ 


cnbegin=05 /*® turn off begin flag */7 
cntree(refr,token)s /* add this token as first in tree */ 
cnsubtt3 


uk 
J 


else ¢ 
cnsubr=cnstarts 
tst=15 
while (tst==1) ¢ 
cngetree(lentry,cntreelcCcnsubr 1) 3 
/* get entry at location of cnsubr */ 
c=cncmpr (token,entry)s /* FORTRAN-like compare */ 
if ((c==0) & (cnsveqgls==1)) ¢ 
i=cntreerfl€cnsubr 3 
if (i==refr) returns 
7 
2. Cae = 
next=cntreelolcnsubr J35 
link=25 


% 
Se 


/* Place equal on high tree for proper output */ 
/*® listing with respect to reference numbers */ 
if (G+) 

next=cntreehi Ecnsubr 15 

link=135 


ks 


if (next==0) ¢ 
tst=03 
else { 


cnsubr=nexts 


+ 
2 


~ 
a 


/* Thread in new entry when thread location found #/ 
cntree(refr,token)s 
if (link==1) ¢ 


cntr eehi Ccnsubr J=cnsub3 


oY 
2 


else { 
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cntreelolcnsubr J=cnsub$ 


r 


cnsubtt+35 


a 
4 


% 


cnorder () 


{ 

/* 

* This routine determines the retrieval sequence (order) of the 
* sort-tree. When the routine is complete, the array cnthreadL] 
* 15 a pointer list to the sort-tree, in proper for a sequential 
* retrieval from the first entry. 

%/ 

int tsts 

int cs 

ant 1s 


char entry([30]; 


cnthrdpt=15 /* starting add-in entry for pointer list #*/ 
cnstack=03 
cnsubr=cnstart; 
tst=15 
while (tst==1) 
/* always look for a lower entry */ 
c=cntreelolcnsubr 13 
if- fc '=0)° ¢ 
/* push stack when lower found */ 
cntreesk€++censtackJ]=cnsubr ; 
cnsubr=c5 
else { 
tst=cnpopstk (); 
/* whole tree now ordered into pointer list ¥*/ 
cnthrdpt=0$ /* prime retrieval pointer */ 
x 


cnpopstk ¢) 


{ 


/* 


pop the top item in the tree cnstack ¥*/ 


Char entryL[30]3 
int c,t,tst; 


tst=15 

t=15 

while (tst==1) ¢€ 
/* no lower, print here */ 
cngetreelentry,cntreelc(Ccnsubr]): 
cnerdout (cnsubr,entry) 5 
/* now look higher */ 
c=cntreehilCcnsubr]3 


pe (eee). £ 
/*® follows high link once, then lower */ 
cnsubr=cntr eehi Ccnsubr 33 
tst=0;5 /*® end but not end of cnstack */ 
2 


2 


else ¢{ 


(Continued on next page) 
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Concordance (Listing continued, text begins on page 86) 
Listing Two 


/* pop stack when no higher found */ 

if (cnstack<=0) { /* are there any left in stack? */ 
t=05 
tst=05 /* end AND end of stack */ 


ra 
4 


else ¢ 
cnsubr=cntreeskCcnstack--J]3; /* pop again */ 


i 
4 


a 


> 


return(t) 5 
} 


cntree(refr, token) 

int refrs 

char *tokens 

{ 

/* Add line and reference to tree */ 


it es 
t=cnpush (token, cnpos) ; 
cntreerfCcnsubj=refrs 
cntreelcEcnsubJ=cnposs 
cntreehiCcnsubI]=05 
cntreelolcnsubJ=0%5 
cnpos=ts3 
+ 

cnpush (a,b) 

char *as 

Re DS 

f . 

/* Moves contents of a into the position referenced by b in cntreedt */ 


int t,q,55 
char cs 


oe ee 
—~ OO 


while (q==1) ¢ 
c=alCstt+]5 
cntreedt(tt++J=c35 
if (c==0) q=05 
a 
return(t)s 
> 
cngetree(a,b) 
cCnar *a35 
LAL .bs 
{ 
/* moves the content of cntreedt[b] to al[?] until end of string */ 


int t,q,S5 
char cs 


e (qg==1) ¢ 
c=cntreedt(t++15 
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alst++]=c5 
if (c==0) qg=0; 
} 


+ 


cncrdout (subr,entry) 
int subrs 
char *entry3 


{ 
/* 
* Add current subscript pointer (cnsubr) to a-building ordered 
* pointer list. Assume that the variable cnthrdpt is pointing 
* to the new location in the pointer list. (All new locations 
* are set to zero so that in the case of end of list, it is 
* properly identified. 
*/ 
cnthread(C€cnthrdpt++J]=subr $3 
cnthread(C€cnthrdptIJ=05 
ts 
cnxtrct (token) 
char *token$ 
{ 
/* 
* Function to return the sort-tree in order as determined by cnorder (). 
* The global variable cnthrdpt, set to O by cnorder(), is assumed to 
* be the location of the previously listed token. 
* The variable "token" is set by the function when there 
* 15s data to return. 
* Function returns O if end of list detected, no data values returned 
* else, returns the particular reference number 
*/ 
int 15 
int n§ 
1=cnthread(€++cnthrdptil; 
$43 PO? t 
n=cntreelclilds /* get location of text for this subscript */ 
i=cntreerffijd; /* return i as the reference */ 
cngetree(token,n); /*® get text */ 
> 
return(i); 
> 
/* end of cncord.c #/ End Listing Two 
Listing Three 
/* 
* CONCRD.C 
% 
* This program presents a simplified concordance of an input file. 
x 
tf 
#define CR is /* Carriage return *¥*/ 
char textlB8000]5 /*# text storage area */ 
char filnmC50]I5 /* name of input file */ 
char tokn(80]5 /* returned token */ 


(continued on next page) 
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Concordance (Listing continued, text begins on page 


Listing Three 

char ptokn[80];5 /* prior returned token #*/ 

char linel80O]; /* single text line */ 

int lines{200]3 /* line pointers to text array */ 
int numliness /* number of lines stored */ 

int flvbls /* variable associated to file */ 
int chrlocs /* current byte on text] */ 

main) /* init, load, sort, and list concordance */ 


ce 
L 


int lsttyp.savsw; 


numlines=03 /* no lines yet stored */ 

chrloc=0; /* no characters in text storage yet */ 
opnfile(d)s; /* open input file */ 

lsttyp=15 /*# Exclusionary List */ 

savsw=135 /* Save token only once per reference */ 
puts("Exclusionary list mame: ")5 gets(tokn)s 
cninit(tokn,lsttyp, Savsw) 3 /* init concordance routine */ 
loadtxt )5 /* build concordance input arrays */ 

cnorder ()5 /* determine sequence */ 

prtecnerd()s /* display concordance */ 


fclose(flvbl)s /* close file */ 


> 


opnfile() /* open input file */ 
{ 
while (1) ¢ 
puts("Input file name: ")s gets(filnm); 
if ((flvbl=fopen(filnm,"r"))!=0) break: /* get file? */ 
puts("Can’t open file")$3 putchar(CR)$ 


> 


? 


loadtxt() /* load text from input file into text array */ 
{ 
int 15 
while ((i=getlin(line,flvbl))>0) ¢ /* while data */ 
lines(€++numlinesj=chrlocs /* count lines */ 
mvlnto()3 /* save in text array */ 
cnbuild(numlines, line); 7* build concordance */ 
z 
prtcnerd() /* print concordance */ 
{ 
LHE 05 
ptoknlLOJ=03 /* null token */ 
while (¢i=cnxtret(tokn)) '=0) { /# while tokens */ 
mvlnfro(ids /* get line that token points to */ 
if (¢i=cncempr (tokn,ptokn))!=0) ¢ /* borrow routine */ 


puts(" ")3 putchar (CR) 5 

puts(tokn)s putchar (CR)s5 

svtkn() 35 /* save as new prior token */ 
> 


puts" ")$3 puts(line)$; putchar(CR)s /* display line */ 


uA 
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mvlnto() /*® move contents of line to text at chrloc onward */ 
{ 
BHC: 2.535 

j=035 

while ((i=linelj++])'=0) textflchrloc++J]=i3 

textCchrloc++]=03 


, 


mvlnfrao(éi)d /* move line by number from text to line #*/ 
int 15 
{ 
nk: gpk, l 5 
1=05 
j=lineslidl; 
while ((k=text£j++J])'=0) linel1l++]=k3 
linell] J=0; 


r 


svtkn() /* save current token in previous token ¥*/ 
{ 
baG Pagaks 

K=O5 j=05 


while ((i=tokn£j++]) !=0) ptokn£[k++]=i3; 
ptokn[£kI=035 
é 


getin(input, file) 7* get line of input from file ¥*/ 
char #inputs 
int *file;3 
{ 
init. 4423 
1=05 
while ((c=getc(file))>0O) ¢ 
inputlit++J=c35 
If (c==CR) € inputlCijd=08 return(i): } PRE >? eS 


> 


lineliJ]=0$3 


returnic); 


; 


/*® end of concrd.c #*/ 


#include aicndef.c 
#include aicncord.c 


End Listings 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 


Son of Floating-Point Benchmark 
In case there are any newcomers out 
there, perhaps it is appropriate to sup- 
ply some background to this month’s 
column. We first published BASIC and 
PL-I versions of Bill Savage’s floating- 
point speed and accuracy benchmark 
program in the September 1983 DDJ 
The subject seemed to catch the fancy 
of many readers, and versions of the 
benchmark were subsequently contrib- 
uted and published for Pascal and 
Forth (November 1983), Fortran 
(January 1984), C (March 1984), 
Logo and LISP (June 1984), and 
8086/8087 assembly language (July 
1984). A reprise of the BASIC bench- 
mark, a Modula-2 listing, T/Maker 
III, and a corrected Logo version ac- 
company this month’s column (List- 
ings One—Four, pages 108-109). 

A preliminary collection of bench- 
mark results appeared in the March 
1984 DDJ issue, and a greatly expand- 
ed table of results accompanies this 
month’s column (page 111). We have 
timings for computers ranging from 
the mighty Cray X-MP to the humble 
Sinclair! We now have a very good rep- 
resentation of the programming lan- 
guages, except for the little-known and 
arcane language known to its initiates 
as COBOL (apparently COBOL pro- 
grammers read Datamation instead of 
DDJ). 

As in the March table, the column 
FPP contains the type of hardware 
floating-point support that was used, if 
any was noted by the contributor. 
Most of the timings were accurate only 
to the nearest second (except for the 
very fast minicomputers and main- 
frames); they are displayed to three 
decimal places as an artifact of the 
dBASE II report program. The Error 
column was calculated as ABS- 
(2500.00000-A), converting to scien- 
tific notation and rounding the mantis- 
sa to the nearest integer. Obviously, 
the smallest errors correspond to the 
most accurate results. 
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There are some pretty interesting 
figures buried in the table. Digital Re- 
search Personal BASIC and Dimension 
68000’s BASIC lead the microcomput- 
er field for grossness in absolute error, 
while IBM BASIC has the same distinc- 
tion in the mainframe world. On the 
other hand, Digital Research Logo 
turned in an absolutely correct result; 
a classic example of one hand not 
knowing what the other hand is doing. 
Computer Innovations’ new “Optimiz- 
ing” C86 version 2 turned in a slower 
time than its previous, presumably 
““Nion-Optimizing,” C86 version 1.3. 
Morgan Computing’s Professional BA- 
SIC interpreter for the IBM PC 
cranked out a timing and absolute er- 
ror result competitive with the best 
compilers, while simply blowing the 
doors off every other known micro- 
computer interpreter. 

Along with the timings and error re- 
sults, I had the good fortune to receive 
many interesting and educational let- 
ters, some of which are excerpted 
below. 


Benchmarking Spreadsheets 
Thomas W. Moran of Bethesda, MD, 
writes: “I tried three spreadsheets (a 
perverse misapplication, I know!). 
Multiplan running on a Burroughs 
B20 (5 mHz 8086, I believe) took 24 
minutes and gave an answer of perfect 
accuracy. T /Maker III, running on a 4 
mHz Z80, took 31 minutes and gave 
2500.00027709 as the answer. Run- 
ning on a Nippon Univac system (5 
mHz 8088, I think), T/Maker III gave 
the same answer but took only 27 min- 
utes. Lotus 1-2-3 running on an IBM 
PC could only calculate up to 2048, not 
2500 (at least without using a more 
complex program). I estimate its 2500 
iteration time at about 8 minutes. It 
also gave a perfectly correct answer. 
“Regarding accuracy: by adding an 
instruction to the T/Maker III pro- 
gram to request rounding to 
9999.999999 after each iteration, I 





forced T/Maker to give a perfectly 
correct answer. I suspect that both 
Multiplan and Lotus automatically 
round to integer or a few decimal 
places after each iteration, thus pre- 
venting the error from growing. I don't 
have convenient access to either, or I 
would have tried a starting value of, 
say, SQRT (2), thus forcing non-inte- 
ger calculations. A final subtraction of 
SQRT (2) — 1.0 would then give results 
comparable to the other benchmark 
runs. Lotus was so much faster that I 
suspect it uses binary floating-point 
arithmetic. T/Maker uses decimal; I 
presume so does Multiplan. Does any- 
one know for sure?”’ 


Benchmarking Modula-2 

As everyone who reads Jerry Pour- 
nelle’s BYTE column knows, Jerry’s 
son Alex has proclaimed Modula-2 to 
be the language that will cure all the 
world’s ills Real Soon Now. Chris 
Dunford writes: 

“The attached listing is a Modula-2 
version of the [Savage] benchmark, 
written for the M2M-PC compiler from 
the Modula Research Institute in Pro- 
vo, Utah. 

“The performance of the compiler in 
this particular test is far from impres- 
sive. Using single-precision reals in 
software (no 8087) on an IBM PC, the 
test took about 2 minutes and 38 sec- 
onds; the final value of A was 2262.9. 
A long time for such a bad result. 

“The redeeming quality of the com- 
piler is its price: $40 plus a couple of 
bucks for shipping. The Institute is a 
nonprofit organization dedicated to 
spreading the gospel of Modula-2; the 
M2M compiler and its associated utili- 
ties were ported directly (in M-code) 
from the Lilith computer, Wirth’s ded- 
icated Modula machine. It appears 
that only the M-code interpreter and 
some low-level stuff were actually re- 
worked for the PC. 

“Although the system does not ap- 
pear to be adequate for commercial 
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use, it’s fine for learning the new lan- 
guage. The compiler fully supports 
Modula-2 as currently defined, and 
the M2M-PC package includes many of 
the library modules suggested by 
Wirth in the language specification, 
Programming in Modula-2. Just stay 
away from the floating-point support, 
and it’s fine.” 


Benchmark Weak Points? 

Kenneth M. Ferguson of Dallas, TX, 
writes: ““When it became obvious that 
[this benchmark] was getting popular 
with the masses, I thought you might 
be interested in a similar benchmark 
that corrects some of the deficiencies 
inherent in the Savage benchmark. 
This new algorithm was suggested by 
Terry Peterson and appeared in the 
November issue of DTACK GROUND- 
ED, the newsletter from Digital Acous- 
tics. Peterson’s approach is as simple 
as the Savage benchmark but provides 
a more useful evaluation of the errors 
involved in floating-point calculations. 

‘There are two major problems with 
the Savage benchmark. It does not pre- 
vent errors of opposite sign from can- 
celling each other out. ... A second 
drawback of the Savage algorithm is 
that the errors are weighted in favor of 
the larger test numbers. For example, 
assume a relative error of 0.01. Then, 
when n=], the error contributed is 
0.01. But when n=2500, the error is 
25.0. Therefore, the larger test num- 
bers contribute disproportionately to 
the final result. 

“It is fairly simple to change the 
Savage algorithm into one where the 
errors are somewhat more interpret- 
able. You simply collect a normalized 
squared error during the loop and then 
present the root mean square [RMS] 
error. For example: 


loop n times 

normerror = (calculated / 
exact) — 1 

sumsquared = sumsquared + 
normerror * normerror 

end loop 

root mean square error = sqrt ( sum- 
squared/n ) 


“This algorithm solves both prob- 
lems with the Savage benchmark. The 
cancellation of errors is prevented by 
squaring the deviation from the true 
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New Release 






One user told us that, compared to other 8-bit C Compilers, 
Eco-C’s “floating point screams”. True. But, Release 3.0 has a 
number of improvements in other areas, too: 


New optimizers with speed improvements of up to 50 
percent over earlier releases! 


New Compiler-time switches for greater flexibility. 
A standard library with 120 pre-written functions. 


Expanded error checking with over 100 possible error 
messages in English including multiple, non-fatal errors. 


Improved, easy-to-read users manual. 


The Eco-C Compiler supports all data types (except bit-fields) and 
comes with MACRO 80 and the C Programming Guide for $250.00. An 
optional, high-speed assembler and linker is available for an additional 
$75.00. Eco-C requires a Z80 CPU, CP/M, and 56K of free memory. To order, 


call 
: oitinn 


6413 N. College Ave. © Indianapolis, IN 46220 Fe | 
(347) 255-6476 — 
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Eco-C (Ecosoft), CP/M (Digital Research), Z80 (Zilog), MACRO 80 (Microsoft) 
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Introducing 


WALTZ LISP” 


The one and only adult Lisp system for CP/M users. 







Waltz Lisp is a very powerful and complete implementation of the Lisp programming 
language. It includes features previously available only in large Lisp systems. In fact, 
Waltz is substantially compatible with Franz (the Lisp running under Unix), and is similar 
to MacLisp. Do not be deceived by the low introductory price. 

Waltz Lisp is a perfect language for Artificial Intelligence programming. It is also 
suitable for general applications. In fact, due to the ease of handling of textual data and 
random file access functions, it is often easier to write a utility program in Waltz Lisp than 
in any other programming language. Several general purpose utilities (including grep and 
diff) written entirely in Waltz Lisp are included with the interpreter. 


Much faster than other microcomputer Lisps. * Long integers (up to 611 digits). Selectable radix. ¢ True 
dynamic character strings. Full string operations including fast matching/extraction. «© Random file 
access. ¢ Binary files. © Standard CP/M devices. * Access to disk directories. * Functions of type lambda 
(expr), nlambda (fexpr), lexpr, macro. ¢ Splicing and non-splicing character macros. ¢ User control over 
all aspects of the interpreter. ¢ Built-in prettyprinting and formatting facilities. © Complete set of error 
handling and debugging functions including user programmable processing of undefined function 
references. ¢ Optional automatic loading of initialization file. © Powerful CP/M command line Parsing. ¢ 
Fast sorting/merging using user defined comparison predicates. ¢ Full suite of mapping functions, 
iterators, etc. © Over 250 functions in total. © Extensive manual with hundreds of illustrative examples. 


Waltz Lisp requires C/PM 2.0, Z80 and 48K RAM (more recommended). SS/SD 8’’ and 


most common 5’’ disk formats. 
Introductory Price....$94.50 


ll LE RE a el eg a $20.00 


(refundable with order) 
additional charges 
INTERNATIONAL ==mn 
P. O. Box 7301 


$10.00 conversion fee for 5’’ Diskettes 
Charlottesville, VA 22906 



















$3.00 C.0.D. charge 


Call toll free 1-800-LIP-4000 Ask for Dept. #7 
In Oregon and outside U.S.A. call 1-503-684-3000 
Unix® Bell Laboratories. CP/M® Digital Research Corp. 
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value, and each deviation is normal- 
ized so a true relative error is accumu- 
lated. Finally, the RMS error provides 
the average error for calculations over 
the range tested. Overall, it presents a 
more interpretable view of the errors in 
any given language’s floating-point 
package. 

“In the next issue of the newsletter 
from Digital Acoustics, another point 
is brought up. The arc tangent removes 
most of the error generated up to this 
step in the calculation. This is the re- 
sult of having to map a number in the 
range from negative infinity to positive 
infinity into a range from —pi/2 to pi/ 
2. Since most of the numbers in the 
benchmark have arc tangents that are 
very close to pi/2, any errors that have 
been picked up along the way are virtu- 
ally removed. The error that is left 
comes from the error intrinsic to the 
arc tangent function.... The next 
step, the job of the tangent function, is 
to take an arc in the range —pi/2 to pi/ 


2 and map it onto the range negative 
infinity to positive infinity. This is 
fraught with trouble, especially when 
all our test numbers are very nearly pi/ 
2. The small error introduced by the 
arc tangent function becomes magni- 
fied by the tangent function. It turns 
out that the error introduced in this 
step is pi/2* N*error. 

“To be redundant, let’s write this 
another way. Let the test number be 
N, the correct result of the arc tangent 
be A, and the error introduced by the 
arc tangent function be ‘err.’ Then, the 
error after the tangent function will be 


Tan(A+err)/N = 
relative error = err * pi/2 


“The relative RMS error calculated 
by the Peterson algorithm is about 
2267 times the relative RMS error plus 
the relative RMS errors of the rest of 
the functions. These latter errors will 
be almost entirely masked by the mag- 


nified arc tangent error. Therefore, di- 
viding the relative RMS error by 2267 
provides an estimate for the number of 
accurate bits in the floating-point 
package, unless the package has a par- 
ticularly bad arc tangent function. 

“In summary, the error in the arc 
tangent function dominates the errors 
accumulated by both the Savage and 
the Peterson algorithms by virtue of 
the magnification induced by the tan- 
gent function. The Peterson algorithm 
provides a way to estimate the accura- 
cy of the floating-point package by 
making use of this dominance, a nice 
bonus.” 


BB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 196. 








1 6-Bit (Text begins on page 106) 
Listing One 


Bill Savage's floating-point speed and accuracy benchmark in BASIC. 


1@@ ' time and general accuracy test program 
11@ defint i 

120 iloop=2599 

138 a=1 

148 for i=l to iloop-l 


150 <a=tan(atn(exp (log{sqr(a*a))))) *2 
168 next i 

17@ print using “a=####. ##FE 7A 

188 stop 


End Listing One 


Listing Two 


Modula-2 version of the Savage benchmark, contributed by Chris Dunford. 


(* DDJ Floating Point Test for M2M-PC Modula-2 Compiler *) 
(*SR-,T-*) (* turn off run-time checks *) 
MODULE fptest; 

FROM MathLib@® IMPORT sqrt, exp, 


FROM RealInOut IMPORT WriteReal; 
FROM Terminal IMPORT WriteString, WriteLn; 


ln, “arctan, sin, cos; 
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CONST 
MaxLoop = 259@@ ; 


VAR 
a, X: REAL; 
1: CARDINAL; 


BEGIN 
a:= 1.90; 
FOR 1 := 1 TO MaxLoop-1l DO 
X := arctan(exp(ln(sqrt(a*a)))); 
a 2= 6int(x) / cos(z)* 4.1.97 (*“no TAN function: *) 
END; 
WriteString("A = "); WriteReal(a, 12); WriteLn 


END fptest. 


End Listing Two 


Listing Three 


T /Maker III code for Savage floating-point benchmark, contributed by Thomas W. Moran. 


ex 9999.999999 
ecl i} +Peqr 

uc2 +logt+exp 
uc3 +atn+tan 


uc4+ 1 
uc5 pas 
+ 1 
ex : 
+ 
cee 2508 '+' lines 
+ 
eX 9999.99999999 
a 
a 
+ 
a 
+ 


End Listing Three 


Listing Four 


Corrected Logo version of the Savage benchmark. This listing runs on ‘‘DR. LOGO"; the names of the transcen- 
dental functions may be slightly different for other implementations. 


to savage 

make "a l 

repeat 2499 [make "a (tan arctan exp log sqrt :a * sa) 4+ T:] 
print [a = ] :a 

end 


End Listings 
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COMPUTER 


CRAY &-HP 

CRAY-15 

COC 7600 

COC CYBER 170-875 
COC CYBER 170-875 
COC CYBER 170-875 
HONEYWELL 

TBM 370 

DEC VAX 117780 

HP 1000-F 

IBM 3081 

DEC 2060 

DEC 20 KL-10 
HONEYWELL 

DEC VAX 11-780 
UNIUAC 1100781 


DEC VAK 117780 
UNIUAC: 1100781 


DEC 2060 

DEC 2060 

IBM 370 

DEC 20 KL-10 
HP A700 

OFC YAK 11-780 
TBM PC (8088) 
TBM PC (8088) 
IPL 4441 

8086 

HP 9000 (68000) 
HP 1000-f 

8086 

HP 9000 
IBM PC (8086) 
DEC POP 11744 
DEC VAX 11/786 
GRID COMPASS (8086) 
IBM PC (8088) 
NEC APC <8086) 
TBM PC (8088) 
TBM PC (9088) 
IBM PC (8088) 
IBM PC (8088) 
DEC POP 11744 
IBM PC (8088) 
DEC POP 11/34 
IBM PC (8088) 
HP 1000F 


MHZ 


5.0 


4.7? 


wee 
5.0 
5.0 
qi 
au 
4a 


ii 


LANGUAGE 


CFT FORTRAN 

CFT FORTRAN 
FORTRAN 

BASIC 

FORTRAN 

FORTRAN 

MULTICS FORTRAN 
WATERLOO BASIC 
UMS FORTRAN-77 
FORTRAN 4 

PLél 

TOPS-20 FORTRAN 4 
TOPS-20 FORTRAN 
MULTICS FORTRAN 
FORTRAN 7? 
FORTRAN 


UNS FORTRAN-?? 
FORTRAN 


TOPS-20 BASIC+2Z 
TOPS-20 FORTRAN 4 
IBM BASIC 
{OPS-20 FORTRAN 
FORTRAN 4 

C 

ASSEMBLER 

UL SYSTEMS FORTH 
PASCAL/US 
PL/1-86 

FORTRAN UNIX? 
FORTRAN FINA 
PL/1-B86 

FORTRAN 
MUP-FORTH 
RSX-LIM FORTRAN 
PASCAL 

MS FORTRAN ?7 
QNK C 

MS FORTRAN 2? 
ONK C 

MS FORTRAN 7? 
MICROSOFT PASCAL 
MICROSOFT FORTRAN 
RSK-LIN FORTRAN 
CI (86 

RT-11 FORTRAN 
BASIC COMPILER 
BASIC 


FLOATING POINT BENCHYARKS FOR ODJ 


VERS FPP 


K 1] 
ea 
FINS 


2040 


U6 
USA 


TFOR 
24J 


FTN 
LORI 


Ub 


Y5A 


808? 
808? 


1.01 8087 


2040 
1.01 908? 


8087 
FIS 


i. 
3.1 808? 
808? 
8087 
808? 
3.1 808? 
3.11 8087 
3.1 808? 
FIS 
2 .10C 808? 
FIS 
1.00 808? 


TIME ERROR 
(SEC) 


0.000 2£-10 
0.003 3£-5 
0.069 9t-6 
0.103 ?E-6 
0.144 3£-20 
0.470 9E-6 
0.500 4f+1 
0.570 2E-1 
0.578 <1t-3 
0.630 2E+2 
0.660 2£-26 
0.770 7-1 
0.830 1E+1 
1.000 1£-3 
1.000 7£-10 
1.020 2-9 


1054 (10-3 
L120 2E-9 


1.300 4E+1 

1.500 i£+0 

1.530 2f+3 

1.870 8-3 

2.000 3f-8 

2.000 7£-10 
2.200 3f-10 
3.200 2t-13 
3.470 <ik-4 
3.700 2E+1 

4.000 2f-6 

4.000 St-3 

4.000 2E+1 

4.200 lE-6 
4.300 <1E-3 
4.500 2E+2 

5.000 6£-10 
5.000 1£-9 

5.100 <1£-8 
5.100 <1E-2 
5.300 16-9 

5.800 1£-9 

6.000 <1E~3 
6.200 <1E-3 
6.900 2-1 

6.920 2E-9 

? 500 

7.800 1£-3 

8.000 3E+2 


Table | 


SOURCE COMMENTS 


MARK SEAGER 
MARK SEAGER 
MARK SEAGER 
DAVIO SACHS 
DAVID SACHS  BOUBLE PREC. 

DAUIO SACHS © SINGLE PREC. 

SHERMAN GROMME SINGLE PREC, TIME APPROX. 
KARL CASPER 

SHERMAN GROMME SINGLE PREC 

COMPUSERVE 

COMPUSERVE 

P. O°KANE SINGLE PREC . 

LEHMAN M. JONES CPU TIME, SINGLE PREC. 
SHERMAN GROMME DOUBLE PREC, TIME APPROX 
HORST SALZWEDEL 
R. SCHLATFER 


ACTUAL TIME 0.00012 SEt 


DQUBLE PREC. 


SHERMAN GROMME QQUBLE PRECISION 
R. SCHLAIFER DOUBLE PREC. 

P. O°KARE SINGLE PREC. 

P. O° KANE DOUBLE PREC. 

KARL CASPER PRESUMED SINGLE PREC 
LEHMAN M. JONES CPU TIME, DOUBLE PREC. 
COMPUSERVE 
HORST SALZWEDEL 
CHRIS DUNFORD 
JOHN GOTWALS 
JEFF FURGAL 
BILL SRURGE 
COMPUSERUE 
COMPUSERUE 
COMPUSERVE 
UNKNOWN 

C. SPRINGER 
JOHN TOSCANO 
COMPUSERUE 
HORST SALZUEQEL 
MICRO BUS. APPL 
K. FERGUSOK 
HORST SALZWEDEL 
HORST SALZWEDEL 
J. SPEISER 


FQUIU. IBM 4343/2 
MICROFLORT LIBRARY 


NBL PREC, SEATTLE 87.LI8 
J. SPEISER OBL PREC, SEATTLE 8?.LIB 
JOHN TOSCANO © DOUBLE PREC 

RICHARD LARSON DOUBLE PREC. 

J. SPEISER 
J. SPEISER 
COMPUSERUE 


OBL PREC, SEATTLE 8? LIB 
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COMPUTER MH2 


COMPUPRO 8088 5.0 
COMPUPRO 8088 9.0 


8085 5.0 
8085 5.0 
8085 oO 
NATL SEMTC. 16000 6.0 
8085 2.0 


COMPUPRE 8085 6.0 
TBM PC (8088) af 


IBM PC (8088) Tit 
TBM PC (8088) 8 
6502 4.0 

8088 4/ 

LMC 16032 6.0 

APPLE II (6502) 1 5 
LMC 16032 6 


DEC POP 11744 

DEC MINC 11723 

HEC LSI 11/23 

DEC POP 11744 

HEATH H-89 (2-80) = 4.0 
QEC POP 11744 


DEC MINC 11723 


HP 9186 

HP 9836 (68000) 

IBM PC (8088) i 
SAGE (68000) 8.0 
DEC LSI-11/23 

GRID COMPASS (8086) 

SAGE (68000) 8.0 
SAGE (68000) 8.0 
DEC LST 11/23 

NEC APC (8086) 

DEC L3I-11/23 

WANG PC (8086) 8.0 
IBM PC (8088) 4.77 
DIMENSION (68000) 8.0 
SUN WORKSTN = (68000) 

TBM PC (8088) we 
8086 5.0 
DEC POP 11/44 

DIMENSION (68000) 8.0 
DEC POP 11/44 


68000 8.0 

IBM PC (8088) 4 
HP 9825] 

6809 2 f 

8088 8.0 

HP 1000E 
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FLORTING POINT BENCHMARKS FOR 00J 


LANGUAGE VERS FPP TIME ERROR 
(SEC) 
DESMET C 2.2 9087 8.000 SE+d 
SUPERSOFT FORTRAN 1.04 8087 10.000 26+2 
RMAC 9232 10.200 SE-3 
PL/1-80 1.40 9232 10.400 SE-3 
BASIC-80 S20 8232 10.700 <1f-3 
UNIX C 418 12.000 <1E-4 
FORTRAN-B80 3.40 9232 12.500 SE-3 
FORTRAN 80 33 9511 14.000 2£+2 
NC P-SYSTEM CIF 8087 14.000 3£-16 
BASIC COMPILER 1.00 8087 14.200 <1E-3 
MORGAN PROF. BASIC 1.00 8087 15.200 <1E-8 
UCSD P SYSTEM HL 8231 = 15 S00 2+? 
UCSD PASCAL IU.1 8087 18.000 2E-7 
C 18.000 <1£-4 
MUP-FORTH 9511 18.500 26+? 
UNIX FORTRAN 77 21.000 <1£-5 
RSX-11M BASIC-PLUS-2 21.800 1£+2 
FORTRAN FPU 22.000 2E+2 
FORTRAN 25.000 2£+2 
RSX-11M BASIC 27.200 1£+2 
FORTRAN-B0 9511 31.000 2E+2 
RSK-11M FORTRAN 34.600 1£+2 
MINC BASIC 2.0 FPU 38.000 2f+2 
HP BASIC 44.000 3£-? 
BASIC 44.290 (1E-3 
BASIC COMPILER 1.00 48 000 96+1 
P~SYSTEM PASCAL 412 54.000 3£+2 
C (UNIX) \? ———-6 000 6£-8 
GRIDBASIC 3.0 9087 56.000 1£-9 
P-SYSTEM FORTRAN = 4.12 56.000 3£+2 
P-SYSTEM BASIC 412 58.000 3£+2 
FORTRAN 59.000 <1£-2 
CI C86 8087 = 65.000 <1£-2 
PASCAL-2 2.1R FP 66.000 1£-? 
BASIC INTERP 1.0.2 68.000 2f+2 
SUPERSOFT FORTRAN 1.07 70.000 9E+1 
BASIC 76 000 1£+3 
UNIX CC COMPILER 95 000 <if-3 
CI C86 1.330 8087 85.000 16-3 
BASIC-86 5 20 92.200 3£+2 
RSKLIM FORTRAN 103.000 26-1 
BASIC 103.000 1£+3 
RSK-LIM BASIC-PLUS-2 113.600 <1£-3 
UCSD PASCAL IU .12 115.000 36-7 
TBM APL 117.000 1£-8 
HPL 117.000 76-4 
PASCAL 119.000 S£+6 
DIGITAL RESEARCH C 119.000 <1E-4 
FORTRAN 4 2026 121.000 3£-8 
Table I 


SOURCE 


R. WEITZMAN 
R. WETTZNAN 
BILL SAUAGE 
BILL SRUAGE 
BILL SAVAGE 


BILL SRUAGE 
R. WEITZMAN 
CHRIS DUNFORD 
J. SPETSER 
RAY DUNCAN 
STEVEN SPEARS 
COMPUSERVE 
R. SCHLAIFER 
C. SPRINGER 
R. SCHRIFER 
JOHN TOSCANO 
BILL SAURGE 
K. FERGUSON 
JOHN TOSCANO 
JGHN TOSCANO 
JOHN TOSCANO 
BILL SAUAGE 
COMPUSERUE 
BILL SAUAGE 
J. SPEISER 
JOE BARNHART 
COMPUSERVE 


HORST SALZWEDEL 


JOE BARNHART 
JOE BARNHART 
K. FERGUSON 
K. FERGUSON 
COMPUSERVE 
RAY QUNCAN 
HUGH KAWABRIA 
JOE BARNHART 
JOHN TOSCANO 
J SPEISER 
BILL SRUAGE 
JOHN TOSCANO 
JOE BRRNHART 
JOHN TOSCANO 
COMPUSERVE 

J. SPEISER 
WAYNE BORGLUM 
ANDY BALL 

GUY SCHARF 
COMPUSERVE 


COMMENTS 


DOUBLE PREC. 


SINGLE PREC. 


MICROFLOAT LIBRARY 
NICROFLOAT LIBRARY 
MICROFLOAT LIBRARY 
DOUBLE PREC. 

MICROFLOAT LIBRARY 
SINGLE PREC. 

COMPILED 10 NATIVE CODE 
DBL PREC, MICROWARE LIB 


SINGLE PREC 


SINGLE PREC. 


SINGLE PREC 
SINGLE PRECISION 


SINGLE PRECISION 
SINGLE PRECISION 
DOUBLE PREC. 


SINGLE PREC 
40 X 24 SCREEN 


DOUBLE PREC 


DOUBLE PREC 
80 X 24 SCREEN 
DOUBLE PREC 


MICROUARE SYSTEMS CORP 


(Continued on next page) 


111 


112 


we 
VECTOR. 4 (2-80) 


COMPUTER 


8085 
8085 


HP S03Ge 

ZENITH 2-100 (8088) 

6809 7 
9008 : 
IBM PC (8088) 


TBM PC (8088) 
TBM PC (8088) 


8086 


VAX 117750 

8085 

8086 

2-80 

HEATH H-89 (2-80) 


-HEURIKON (68000) 

HEATH H-89 (2-80) 

——-TANOY 168 (68000) 
TBM PC (8088) 


68000 

IBM PC (8088) 
HEATH H-89 (2-80) 
SAGE (68000) 
SAGE (68000) 


ZENITH 2-100 (2-80) 


goes 
SAGE (68000) 
DEC POP 8 
oe 
TBM PC (8088) 


HP 85 
HP 86-A 


8088 


HEATH H-89 (2-80) 
BBC ACORN <6502) 

HP-75 CALCULATOR 

7-80 

NEC 9201 

HEATH H-89 <2-80) 


A 
OSBORNE T (2-80) 


TANDY I ¢2-80) 
APPLE I] (6502) 
APPLE IT & 8088 
2-80 

WiC-20 (6502) 
IBM PC 


MHZ 


4 
6.0 
4 
40 
8.0 
8.0 


8.0 


5.0 


AT 


6.0 


8.0 
2.0 
2.0 


4.0 


aif 


LANGUAGE 


FORTRAN-80 
BASIC-80 COMPILER 
BASIC 

ZBASIC 

BASICOS 

SSS FORTRAN 

BASIC INTERPRETER 
M2M-PC MODULA 2 
BASIC COMPILER 

MS PASCAL 

FRANZ LISP 
BASIC-80 

PL/I-86 

RASIC-80 

MBASIC COMPILER 
UNIX SYSTEM III € 
FORTRAN-80 

MENTX CC COMPILER 
SUPERSOFT FORTRAN 
£ CTRS-XENIX) 

DRI PERSONAL BASIC 
MBASIC 

P-SYSTEM PASCAL 
P-SYSTEM FORTRAN 
MBASIC 

(780 

P-SYSTEM BASIC 
0578 FORTRAR 1 
PL/I-80 © 

ORI PERSONAL BASIC 
BASIC/S-16 

BASIC INTERPRETER 
HPL 

BASIC 

COMP. INNOU. C86 
BHBASIC 


BBC BASIC 


BASIC 

BASIC-£ 

MS BASIC 

C780 

PL/1-80 

C780 
FORTRAN-80 
APPLESOFT 
APPLESOFT BASIC 
NEVADA FORTRAN 
BASIC 

LOTUS 1-2-3 


3) 


FLOATING POINT BENCHMARKS FOR ODJ 


VERS FPP ‘TIME ERROR 
(SEC) 
2 40 140.800 2£+2 
5.20 140.800 2642 
140.800 1£-3 
142.730 2642 
149.000 2€-2 
1.04 154.000 2E-7 
157.000 3£+2 
158.000 26+2 
1.00 170.000 1£-3 
? 171.000 1-7 
172.000 6£-8 
c 20 174.900 2£+2 
101 179.600 8E+2 
S30 184.000 2£+2 
52 189.700 2£+2 
199.300 (1E-4 
203.000 2£+2 
: 211 000 1£-3 
1.07 211.000 <1£-3 
212.000 if-6 
1.0 217.000 16+3 
4 § 229.900 242 
412 234.000 1£-4 
“412 736.000 1£-4 
C22 236.740 2642 
3.0 238.000 3£+2 
412 238.000 1f-4 
: 240.000 1£+3 
1.30 254 400 BE+2 
iD 255 000 1f+3 
i7 266.000 2£+2 
5.213 269 000 2£+2 
282.000 6£-4 
286 000 1£-3 
1 33 288.000 7E-6 
310.000 2E+1 
2 311.280 7E-1 
325 000 6£-4 
2.2 330.000 SE+ 
363.000 26+2 
370.700 3£+2 
13 373 000 9£+2 
420.000 2£+2 
422.000 2£+2 
463.000 <1£-3 
470.000 <1E-3 
22 473 000 8E+1 
20 477.000 9-5 
480.000 <1£-3 
Table I 


SOURCE 


BILL SAVAGE 
BILL SAVAGE 
J. SPEISER 
BILL SRURGE 
ANDY BALL 
COMPUSERVE 
J. SPETSER 
CHRIS QUNFORD 
J. SPEISER 
COMPUSERUE 
MICHAL YOUNG 
BILL SAURGE 
BILL SRUAGE 
COMPUSERVE 
JOHN TOSCANO 
BOE HALLORAN 
JOHN TOSCANG 
JOHN TOSCANO 
HUGH KAWABATA 
COMPUSERVE 
RAY OUNCAN 
JOHN TOSCANO 
JOE BARNHART 
JOE BARNHART 
BILL SAVAGE 
COMPUSERVE 
JOE BARNHART 


SHERMAN GROMME 


BILL SAURGE 
RAY QUNCAN 
COMPUSERUE 
RONALD WAGNER 
WAYNE BORGLUN 
MARK BRILEY 
COMPUSERUE 
PEARSON/CAIRO 
P. O°KANE 
COMPUSERVE 
COMPUSERVE 


HORST SALZWEDEL 


JOHN TOSCANG 
COMPUSERVE 
BOB BRIGGS 
KARL CASPER 
C. SPRINGER 


R. S. SCHLAIFER 


COMPUSERVE 
COMPUSERVE 
THOMAS HORAN 


COMMENTS 


MICROWARE SYSTEMS CORP 
SINGLE PREC 
DOUBLE PREC 


4 USERS, TIME APPROX. 


DOUBLE PREC. 


DOUBLE PREC 
SINGLE PREC 

DOUBLE PRECISION 

DOUBLE PRECISION 

DOUBLE PRECISION 
SINGLE PREC, TIME APPROX 
DOUBLE. PREC 
DOUBLE PRECISION. 


NATIVE MODE 


SINGLE PREC. 


SINGLE PREC 


2048 TIER. TIME APPROX. 


(Continued on page 114) 
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ATTENTION. 
SOFTWARE AUTHORS 


Our established literary agency is seek- 
ing to represent talented software au- 
thors. If you've written “The Great Ameri- 


HAT TOC 


icxX Deluxe CP/M -- ISIS Package 
Includes: ICX file transfer pro- 


‘nt H Mt 
i 


‘t 
i 
H 


gram for 8" ISIS disks; ISE emulator 
allows ISIS software to run under CP/M. 
$89 each or $175 both 


EZ-ZAP General purpose EPROM 


programming software utility. Uses simple 
parallel port interface to EPROM or adapts 
to other hardware. Includes schematic. 

$79 


C-PACK A disk full of useful 
CP/M utilites written 
in C. PEP, DEL, BACKUP, DPATCH, 
ECHO, CHX, PAUSE, and more! $19 


Programs include complete source code 


CP/M and MP/M are registered trademarks of 
Digital Research, Inc. ISIS-Il and MULTIBUS are 
registered trademarks of Intel Corp 


estern Wares 
303°327-4898 


Box C e¢ Norwood, ee) 81423 


ms 


SAL /80® and SAL/ 
do for assembly language what 
RATFOR does for FORTRAN 
but emits 
OPTIMALLY DENSE code. 
SAL/8X includes console I/O 
primitives which trivialize the task of 
writing complex interactive user 
interfaces. Improves programmer 
productivity by a factor of two and 
program maintainability by an order 
of magnitude. 
Extensively documented, available 
forall CP/M compatible disk formats. 
SAL/80 version 2.1, $59.00, requires 
64K and MAC or RMAC. 


CALIFORNIA RESIDENTS ADD 6% SALES TAX. 
PROTOOLS® 
“Software Tools hor the Professional 


24225 Summerhill Avenue 
Los Altos, CA 94022 
(415) 948-8007 


CP/M KEYBOARD EXPANDER 
POWERFUL NEW UPGRADE! 
still only $100 


microSystems 


16609 Sagewood Lane 
Poway, California 92064 


(619) 693-1022 


CPIM tm Digital Research, Inc. 


See us al 


The National Software Show: 


Anaheim Convention Center 
September 5-7. 1984 





can Program” but are unsure how to 
market it or to whom or for how much, 
call us. 


Whether it’s recreational, educational or 
business, we'll make sure that your cre- 
ation gets the audience it deserves -— 
Top Executives at the leading software 
houses. 


Our clients receive better treatment and 
earn more royalties because we nego- 
tiate the best possible deals. Give us a 
chance to go to bat for you. For further 
information on the benefits of represen- 
tation please contact: 


THE ROBERT JACOB AGENCY 
(805) 492-3597 
1642 Eveningside, Suite 110 
Thousand Oaks, CA 91362 


SUBROUTINE 
BRARY 


503/884-3023 


Now, a library of Numerical Methods 
Subroutines for use with your FORTRAN 
programs. 


Over sixty subroutines of 


FUNCTIONS INTERPOLATION 
INTEGRATION LINEAR SYSTEMS 
MATRICES POLYNOMIALS 
NON-LINEAR SYSTEMS DIFFERENTIAL EQ 


Versions available for several FORTRAN 
compilers running under CP/M-80 and MS-DOS 
(PC-DOS). 


Cost, $250. 
Manual available, $25. 


microSUB: MATH 


fol-lalamerelal-10)idiale Ml dO = {oh aon ache @F-leal-tiom F111 @) -Eordcieh| 


CP/M and MS-DOS are trademarks of Digital Researct 
and MicroSoft Corp. respectively 


PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


DYNAMIC RAM 
256K 150 ns $48.99 
64K 200 ns 5.44 
64K 150 ns 5.37 
64K 120 ns 6.80 
16K 200 ns 1.21 
EPROM 

27256 250 ns Call 

27128 250 ns $26.40 
2764 200 ns 10.65 
2732 450 ns 5.40 
2716 450 ns 3.60 

STATIC RAM 

5565P-15 150 ns $39.97 
6264LP-15 150 ns 39.97 
6116P-3 150ns 6.36 


MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts Poe 


MICROPROCESSORS UNLIMITED 
Beccs OK raz (918) 267-4961 
Prices shown above are for May 17, 1964 


Please call for current & volume prices. Prices subject to change. Please expect ae 
prices on some parts due to world wide shortages. Ship i and Insurance extra. Cash 
discount prices shown. Small orders received by 6 PM CST can usually be delivered to 
you by the next morning, via Federal Express Standard Air @ $5.99! 


i VR PROGRAM DEVELOPERS cash in on your creative 


energies, join The SourceView Corporation's SOFT- 
WARE PUBLISHING PROGRAM. Get all of yourR& D 
needs at our distributor cost or loan, plus a lucrative 


SourceView is small enough to give you personalized 
service, we register your software in ISBN publishing 
system, offer a nonexclusive marketing agreement, 
super packaging, specialized services. We seek: com- 
pilers, cross-assemblers, utilities, new DOS, DBMS, 
integrated information processors, graphics systems, 
educ., scien., bus., stat., eng. applications. We offer full 
development & documentation. Don’t hesitate, con- 
tact SourceView immediately! 


Michael L. Dean, VP Research & Development 
The SourceView Corporation 

Post Office Box 578, Concord, CA 94522 
(415) 680-0202. 


68000 Cross Assembler 
Motorola VERSAdos + Compatible 


Assembler, Linker, Object and Macro Librarian. 
Absolute and Relocatable Code, Macros, In- 
cludes, and Conditional Assembly. Structured 
Programming. No limit on source file size. 


Unix (C) Compatible Source 
$700 


CP/M-80* PC/DOSt CP/M-86* 
$200 $250 $250 


Manual: $20 
(refundable) 


farbware 


1329 Gregory 
Wilmette, IL 60091 


(312) 251-5310 
after 5 p.m. 


*Digital Research trademark, tIBM trademark, + Motorola trademark 


Advertisers! 
Get Ready For December 


Dr. Dobb’s Journal 


special UNIX issue 


Space Reservation Deadline 
OCTOBER 12, ‘84 
Materials Deadline 
OCTOBER 19, ‘84 


Contact: 
Walter Andrzejewski 
Alice Hinton 
(415) 424-0600 


r. Dobb's journal 


2464 Embarcadero W/ay 
Palo Alto, CA 94303 
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KENT BASIC 
CL OPTIMIZING C86 
«bie 
BASIC INTERPRETER 
32K STRUCTURED BASIC 3.66 


16K BASIC 
HEUADA FORTRAN 


BASIC 
te -80 


-DESMET ¢ 
-— FORTRAK-B0 


8 MULTIPLAN 
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6.0 CBASIC 
0 TAMAKER IIT 
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485.000 142 


512.000 1£+2 


$14.00 (16-3 


515.400 96-5 
624.000 <1E-2 
538.300 1£+0 


~— $40 .000 2642 


544.000 SE~3 
560.000 <1E-3 
585 000 <1E-3 
620.000 2E+1 
643.000 8E-6 


— 655.000 <1E-3 


695 000 1£-3 
750.000 26-? 
764.670 7E-6 


773.600 16-3 
774.000 (1E-4 
796.000 4£+0 
890.000 1£-3 
900.000 3£-2 
900.000 3-3 
975.000 eF+1 


990.000 3E-1 
997 000 2E+1 
1149 000 4£+0 
1251 000 1£-12 


4620000 «16-3 


it 

4860.00 <1E-2 
1980.00 16-7 
190.000 16-5 
ei 


5 
1 0 — 


1623 .000 2f+1 


0 000 
640.000 141 
3240.00 76-3 


S 


300.000 <1£-2 
3900 .000 3£+4 


3920.00 16-2 
4602.00 1E-3 
speed 000 <1t-4 


5760 000 1£-3 
9760 .000 3-1 
6000 .000 95-1 
10200000 1£-2 


Table I 
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COMMENTS 





ae 





K. FERGUSON 
MICHAL yOUNS - 
COMPUSERUE 

JEFF FURGAL 
GARY BERGSTROM 
GARY BERGSTROM 

PEARSON/CAIRO . 
HORST SALZWEDEL OOUBLE PREC. 
A. fF. HERBST 
J. SPEISER 
RAY OUNCAN 
RICHARD LARSON DOUBLE PREC. 
JOHN TOSCAKO 
JEFF FURGAL 
HORST SALZWEDEL 
J. SPEISER 

A. ROXBURGH 

A. ROXBURGH 
SHERMAN GROMME 
PEARSON/CATRO "FAST" MODE 
COMPUSERVE 
JEFF FURGAL 
COMPUSERUE 
THOMAS MORAN 

ee 
ont 
Gt” - 
COMPUSERUE ts” iH. .]©€©«=«#»«7]7+73=CTO 
COMPUSERUE - 
PeRSNZCRIE 
ALAN STEIN. 
OTACK GROUNDED 
COMPUSERUE 

K. FERGUSON 
COMPUSERUE 
ROHALD WAGNER 
KARL CASPER 
KARL CASPER 
COMPUSERUE 
PEARSON/CAIRO © "SLOU" MODE 
COMPUSERUE 

KARL CASPER 


; FUNCTION SUPPLIED 


DOUBLE PREC 


DOUBLE PREC. 


DOUBLE PREC 


DOUBLE PREC. 








DOUBLE ae 
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hether your mailing list, account- 

ing package, DBMS, or other end- 
user application is currently under 
development or already on the market, 
you've probably discovered that ex- 
ternal sorting can be a difficult, costly, 
and time-consuming headache. Es- 
pecially in today’s floppy - disk storage 
environment. 


. hat’s why we developed 
BEAMSORT™ the revolutionary in- 
place OEM sorting module. The older 
algorithms eat up valuable space on 
your user's often over-crowded disk- 
ettes. By installing BEAMSORT™ you 
get today’s technol- 
ogy at a fraction of 
it’s true develop- 
ment cost, and 
you've got one 
less problem to = 
worry about. | 







Research, Microsoft, Ashton-Tate, and Micropro, respectively. 






*CPM, MS-DOS, dBase IL and i Sielant are 6 teadertiairks of Digital 


It’s a headache, of sorts. 


EAMSORT™ runs under CP/M-80%*, 

CP/M-86*, MS-DOS* and PC-DOS, 
supports multiple-volume files, ASCII, 
Microsoft .RAN, and dBASE II* .DBF 
file formats, and interfaces to all major 
languages. Custom interfacing, operat- 
ing environments, and file formats 
are available. 


hat about performance? 

BEAMSORT™ runs SuperSort*’s 
own benchmark faster than SuperSort* 
does! It’s amazing, but don’t take our 
word for it. Write us on your company 
letterhead for our OEM evaluation kit. 
You must see this for yourself! 


For fast relief. 
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Phlexible Data Systems, Inc. 


3017 Bateman Street, Berkeley, CA 94705 
(415) 540-7181 


Circle no. 43 on reader service card. 


FORTH: FOR Z-80®, 8086, 68000, and IBM® PC 


Complies with the New 83-Standard 


GRAPHICS e GAMES e COMMUNICATIONS e ROBOTICS 


DATA ACQUISITION - 


@ FORTH programs are _ instantly 
portable across the four most popular 
microprocessors. 

@ FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

@ FORTH programs are highly struc- 
tured, modular, easy to maintain. 

@ FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

@ FORTH allows full access to DOS 
files and functions. 

@ FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

@ FORTH Cross Compilers are 
available for ROM’ed or disk based ap- 


plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.; CP/M, Digital Research Inc.; PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc. 


= [ij 





Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to (213) 306-7412 


PROCESS CONTROL 


FORTH Application Development Systems 
include interpreter /compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M® 2.2 or MP/M li, $100.00; 
8080 FORTH for CP/M 2.2 or MP/M II, $100.00; 
8086 FORTH for CP/M-86 or MS-DOS, $100.00; 
PC/FORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00; 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


PC FORTH + $250.00 
8086 FORTH + for CP/M- 86 or MS DOS $250.00 
68000 FORTH + for CP/M-68K | $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
Or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 


Circle no. 30 on reader service card. 
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WHY FORTH ? 


e Genuinely Interactive 
(BASIC is much less interactive) 


e Encourages Modular Programs 
(inefficiency and cluttered syntax 
hamper effective modularization in 
compiled languages) 


e Fast Execution 
(not even C is faster) 


Amazingly Compact Code 
Fast Program Development 
Easy Peripherals Interfacing 


NS FORTH 


e Fully Optimized & Tested for: 













































IBM-PC IBM-XT IBM-JR 
COMPAQ EAGLE-PC-2 
TANDY 2000 LEADING EDGE 


and all MSDOS compatibles 

e Graphics - line, rectangle, block 

e Music - foreground and 
background 

e Scaled decimal floating point 

e Includes Forth-79 and Forth-83 

e Full Support for DOS Files, 
Standard Screens and Random 
access DOS Screen Files 


e Full Use of 8088 Instructions 
(not limited 8080 conversion subset 
of transported versions) 


e Separate Segments for Code, 
Stack, Vocabularies, and Defini- 
tion Lists - multiple sets 
possible 

e Segment Management Support 

e Full Megabyte - programs 
or data 
Coprocessor Support 
Multi-task, Multi-user 
Compatible 


e Automatic Optimizer 
(no assembler knowledge needed) 


e Full Assembler 
(interactive, easy to use & learn) 
e Compare - BYTE Sieve 


Benchmark jan83 

HS/FORTH 47 sec BASIC 2000 sec 
w/AUTOOPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 


PS You don’t have to understand 
this ad to love programming in 
HS/FORTH! 


HS/FORTH with AUTO-OPT & 
MICRO-ASM $220. 


ams Visa Mastercard 
Add $10. shipping and handling 


HARVARD 
SOFTWORKS 


PO BOX 339 
HARVARD, MA 01451 
(617) 456-3021 





Circle no. 27 on reader service card. 


C/UNIX PROGRAMMER’S NOTEBOOK 


By Anthony Skjellum 


In this column, we’ll discuss some of 
the feedback received in response to 
previous columns, as well as some mis- 
cellaneous remarks. 


uucp (Unix to Unix Copy) 


Mike Meyers of Norman, OK, sug- 
gested that I publish my uucp address. 
Via this address, users on other Unix 
systems can send me mail electronical- 
ly by using the standard Unix mail 
command. A uucp address is specified 
relative to a well-known site. Thus, the 
address “ucbvax|cithep|tony” should 
allow most users to reach me. If your 
site cannot communicate with ucbvax 
(UC Berkeley) directly, more site 
names must be prepended onto this ad- 
dress and onto those listed below as 
well. On the other hand, if your site 
can communicate with cithep (Caltech 
High Energy Physics) directly, you 
may omit the ucbvax prefix. 

If a continuing electronic dialog de- 
velops, I will occasionally publish the 
uucp addresses of those involved so 
that others may join in. At the mo- 
ment, the following users are partici- 
pating in a discussion about Unix: 


ucbvax | mtxinu|ea| jab 
(Jeff A. Bowles) 
ucbvax | cithep| yekta 
(Yekta Gursel) 
ucbvax | mtxinu |ea|emyjej 
(James Jones) 
ucbvax | mtxinu|ea|mwm 
(Mike Meyers) 


I will include interesting remarks from 
this discussion in future columns for 
the benefit of those readers who cannot 
access the electronic mail. 


C Users Group 


Phillip K. Landis of Satellite Beach, 
FL, inquired about the address of the 
C Users Group of Yates Center, KS, 
which I mentioned in the April col- 
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umn. Their address and telephone are: 


C Users Group 

103 E. Rutledge 

Yates Center, KS 66783 
(316) 625-3554 


This particular group has 34 volumes 
of C programs and offers them in a va- 
riety of disk formats (only for micro- 
computers). I would like to print the 
addresses of any other public domain 
C repositories. If you know of one, 
please forward me their address. 


Public Domain C 


Robert E. Fiorini of Albany, NY, 
writes: “I’m a new C user trying to find 
an inexpensive (possibly public do- 
main) C compiler (with source code 

. if possible). My own efforts have 
been fruitless. ’'m hoping that you or 
one of your readers may know where I 
can find such a compiler. If you can 
help me in any way... please HELP !! 
... It’s funny, the only thing holding 
me back from the world of C is the C 
compiler itself.” 

Rod Cain’s Small C is available 
through the C Users Group listed 
above. An enhanced version (not pub- 
lic domain) for 8080/Z80 CP/M sys- 
tems is available (with source code) 
from The Code Works of Goleta, CA. 
(You can find their address in any 
number of DDJ back issues.) This par- 
ticular compiler (Q/C) is a serious 
subset implementation and includes 
full compiler source for $95.00. An 
IBM version of this product should be 
available later this year and would be 
well worth the investment if priced 
comparably to the CP/M version. For 
$25 you can get version 2.1 of the 
Small-C compiler from J. E. Hendrix 
at Box 8378, University, MS 38677- 
8378 (see page 60 of the May 1984 
DD/J for details). An MSDOS (IBM PC) 
version of Small C v.2.0 is available for 
$35 from The Coriolis Company, Box 


76, Clinton Corners, NY 12514. 


Comments about C Input- 
Output 


Mike Meyers writes: ““What you 
haven’t seemed to realize is that almost 
every flaw in Unix also appears in C. C 
is terse, doesn’t protect the user, and is 
poorly documented. The only docu- 
mentation for C is K&R [Kernighan 
and Ritchie], which may be well writ- 
ten but is vague and inconsistent on all 
the points you turn to when you start 
implementing the language on new 
machines. To make matters worse, no- 
body (and I do mean nobody) sells a 
compiler that conforms to K&R, not 
even AT&T. I don’t think dnybody ever 
has, in any case. AT&T distributes a 
version of pcc [portable C compiler] 
that met K&R internally, but I think 
that by the time it was released exter- 
nally, C had grown past K&R.” 

Gerald I. Evenden of N. Falmouth, 
MA, responded about C input-output 
as follows, with quite a different point 
of view: 

‘“T was very disturbed with a basic 
concept about the C programming lan- 
guage that you kept implying in your 
column in the April issue. First of all I 
suggest that you carefully read the be- 
ginning paragraph of chapter 7 of Ker- 
nighan and Ritchie’s book: The C Pro- 
gramming Language. It begins with 
‘Input and Output are not part of the C 
Language....’ What remains is a de- 
scription of I/O procedures contained 
in a standard Unix library, which will 
take care of most filter types of func- 
tional operations. I have generally 
found them to be quite adequate for 
most programming efforts involving 
stream data and simple question- 
answer types of console I/O.” 

I would like to state that I am fully 
aware of the distinction between the C 
language definition and the standard 
input-output library. When teaching 
students how to program in C, this is 
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one of the first points I emphasize: C is 
a language that shows no special favor- 
itism to a specific set of input-output 
routines. (A single standard set does 
exist, and this is the Unix standard.) I 
consider input-output independence an 
essential feature of C, but I feel that a 
discussion of a real C compiler envi- 
ronment cannot always be separated 
from a discussion of the support li- 
brary that comes with it. I also main- 
tain that the Unix input-output library 
is more than adequate for dealing with 
stream operations. Mr. Evenden sum- 
marizes the distinction between C and 
C input-output as follows: 

“The beauty of C is that it doesn’t 
have a plethora of specialized built-in 
functions but rather provides the pro- 
grammer with a rich facility to build 
tools required for his own, occasionally 
specialized, needs. Obviously, we 
shouldn’t have to redesign all the 
wheels needed, so most suppliers of C 
compilers include a library of func- 
tions patterned after the Unix librar- 
ies. But remember, there is absolutely 
no requirement to use them if they 
don’t fit your needs, and they should 
only be viewed as a preliminary tool 
kit.” 

One point that merits further explo- 
ration is that of portability. While it is 
well and good to preach the separation 
of C and C input-output, only software 
that uses standard Unix input-output 
calls (and routines built on them) has a 
prayer of being moved readily between 
different machines or even between 
different compilers on the same 
machines. 

Mr. Evenden continues: “I suspect 
that your problem with ‘getc’ et al. is 
related to screen editing and control, 
which is a category of program that 
doesn’t fall into the ‘filter’ class of 
functions emphasized by Unix (and its 
libraries), and I certainly agree that 
these functions don’t work in this case 

. The astute programmer writes 
‘rawin( )’ and ‘rawout( )’ to satisfy 
those needs. There’s nothing to prevent 
it and everything to encourage it.... 
The worst possible outcome of the 
problems posed in your article is to 
even remotely suggest rewriting the 
current stream I/O functions. Their 
current form is a de facto standard, 
and a consistency of implementation is 
expected by most C programmers.” 
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I really don’t expect anyone to throw 
away the existing stream functions. 
Not only would this be unreasonable, it 
would also be undesirable. However, I 
do feel that clean raw input-output 
should be a supported capability; it 
needn’t be reinvented each time a Unix 
programmer discovers that stream in- 
put-output is inconvenient for interac- 
tive purposes. In discussing a similar 
worry expressed by Mr. Meyers, I 
summarized my argument by stating 
that interactive programs comprise a 
large fraction of those run by Unix us- 
ers, and that when programmers write 
interactive programs, they don’t usual- 
ly want the users treated like input 
files. 

Despite Mr. Evenden’s outspoken 
letter, we actually agree in many re- 
spects. However, some things he 
brought up demand careful examina- 
tion. He states: 

“The principal point of this com- 
plaint is that you should be a little 
more careful of what you are talking 
about. Writing about problems with C 
I/O is impossible since C I/O doesn’t 
exist. However, your less-experienced 
readers will take your complaint to 
heart and decide that C is a useless lan- 
guage because Mr. Skjellum, et al., 
don’t like the optional I/O library sup- 
plied with their compiler. If you were 
more positive in your approach you 
would be telling readers how to write 
their own procedures to do specialized 
console I/O on Unix, CP/M, etc. I’ve 
done it on both CP/M and Unix and 
found it to be a piece of cake in both 
cases and never gave the ‘getc’ group a 
second thought when it was obvious 
that they were not meant for the job at 
hand.” 

The comments I have made are 
based on several years of experience 
with C under Unix, CP/M, VMS, etc. 
One must come to grips with reality. C 
input-output, while optional, is nor- 
mally what users must utilize to deal 
with a problem at hand; consequently, 
inexperienced users must lean more 
heavily on the standard library than 
experienced users. It is meaningful to 
discuss C input-output. It does exist, 
and Mr. Evenden discusses several 
points about it before stating that the 
topic is beyond the realm of discussion. 
Inexperienced users learn by reading 
dialog between others who have seen 
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problems in their own work. Censoring 
this information to “protect” such us- 
ers from disenchantment with C is an 
unacceptable alternative. 

We have not reached the computer 
millenium. C and Unix as existing 
tools have flaws and drawbacks. Only 
through discussion can we seek solu- 
tions and create better future systems. 
The idea of restricting discussions be- 
cause of semantic points seems to be 
contrary to that goal. Some other writ- 
ers have taken the approach that C and 
Unix are wonderful tools and heap 
praise on them in review after review. 
A certain group of individuals feel 
highly insulted if this approach is not 
followed. In an evolving field, it makes 
sense to criticize as part of the learning 
process. That is why I include Mr. 
Evenden’s final remarks, because I 
think that he has drawn a counterpro- 
ductive conclusion from an under- 
standable point of view: 

“C is not a perfect language but it 
certainly beats what’s in second place. 
Consequently, my enthusiasm about C 
makes me very chauvinistic about mis- 
placed and invalid criticisms. I have a 
couple of minor complaints about 
some aspects of C but I bite my tongue 
when I think about the dark ages. Af- 
ter several happy years with ALGOL in 
the 60s I was sentenced to over 10 long 
years of Fortran purgatory before be- 
ing born again with C. I guard this lan- 
guage jealously and you had better be 
careful of what you write or I’ll curse 
you to a task of debugging 10,000 lines 
of BASIC code.” 

I hope that Mr. Evenden will recon- 
sider and send in his comments about 
C so we can add them to the discussion. 


BDS C Runtime Solution 


Alex Cameron of Malvern (Victoria), 
Australia, had the following com- 
ments: “I couldn’t help responding to 
your notes on the nonstandard nature 
of some of BDS C’s runtime routines 
(Dr. Dobb’s No. 90). There is probably 
little doubt that most of us gladly suf- 
fer its irregularities because of its 
speed, low price, and because it is ar- 
guably one of the finest C compilers 
around—all this notwithstanding, I 
still find the nonstandard buffered file 
functions such as fopen the most frus- 
trating, simply because of the need to 
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continually declare buffers.” 

The listing on page 120 (listing 
stdlib3.c) is Mr. Cameron’s proposed 
solution to this problem under BDS C. 


Unix Comments 


Two users had responses to previous 
comments about Unix. Tim Prince of 
Marblehead, MA, writes: 

“As a new Unix user I find some of 
the subjects raised in your column this 
month [April] interesting. Certainly, 
in comparison with VAX/VMS, there 
is a lack of discipline in adhering to 
uniform standards for a user interface. 
This is the almost inevitable result of 
the way Unix evolved as the product of 
the work of various organizations. Also 
the volume of official documentation is 
much less, but if you count the many 
good books available from third par- 
ties, the comparison will soon go the 
other way. ... Unix has collected a set 
of useful information into a pair of vol- 
umes, which the individual can afford 
to own.” 

He adds: “I have spent nearly 20 
years learning things about GCOS, 
which has all the faults of which Unix 
is accused without many of the advan- 
tages. This operating system will soon 
disappear from the face of the earth, 
making our knowledge of its quirks so 
much nonbiodegradable mental trash. 
What is learned about Unix is more 
likely to remain useful after the cur- 
rent hardware is gone.”’ 

Mike Meyers writes: “... I tend to 
agree with most of the things you’ve 
said about Unix. The documentation 
is, at best, terse. What’s worse, it’s el- 
ther missing or wrong in many places. 
To top it off, most of it assumes that 
you have access to the source and are a 
good computer scientist. To make mat- 
ters still worse, there really isn’t an on- 
line documentation system. What you 
have is an interactive manual printer. 
It is very definitely not friendly to the 
naive user. The best description I have 
run across is that Unix is expert- 
friendly. If you know it, it’s going to be 
great. If you don’t know it, well, that’s 
just too bad.” 

These two viewpoints are not mutu- 
ally exclusive. Unix is expert-friendly 
and beginner-hostile; many of the 
Unix functions such as man and mail 
are primitive, but this bothers some us- 


ers less than others. 

One can argue that, like C input- 
output, specific Unix tools are optional 
and can be replaced by programs pref- 
erable to the user. By this reasoning, it 
is not meaningful to complain about 
specific Unix features/programs. 
However, I feel that most users want to 
take Unix facilities off the shelf and 
spend their time on an application, not 
on reworking existing software tools. 
Therefore, comments about deficien- 
cies in specific Unix tools are also 
germane. 


Conclusion 


This column exists for the purpose of 
discussing C and Unix as they are, 
with the problems they have. As stated 
emphatically above, C and C input- 
output are independent concepts. 
However, users generally deal with the 
input-output library, and deviations 
from that library have given users 
cause for complaint. Therefore, such a 
discussion has a place here. I invite 
readers to submit any code that illus- 
trates how to deal with raw input-out- 
put in C under CP/M, Unix, or other 
operating systems. 

In this column, we have considered 
some user comments about C/Unix 
based on several letters received re- 
cently. I would be interested to hear 
what others think about this ongoing 
discussion, as well as follow-up com- 
ments from those readers represented 
here. 
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C/UNIX Listing (Text begins on page 116) 


i 
eee stdlibs.c -- standard 1/0 library 
EX 

#*® Copyright 1784 «4. Cameran 

x/ 

H#include "bdscia.h" 

L* 

as 

HE Standard foapen 

ae 

se return #d on success, NULL on error 
#3 

=f 


sfopentfilename ,mode) 
char #filename; 
char *mode; 


% 
int €¢s 
it “mode == “wi ) “* write made #/ 
{ 
if C'Cfd = alloc(BUFSI2Z) >) 
return NULL) ; 
else 
{ 
if (fcreattfilename,fd) == -1) 
{ 
freetfd); 
return NULL); 
returnt¢d); 
: 
if (#mode == “ry “* read mode */ 
{ 
it “'Cfd = alloactBUFSI2)>) 
Fe turn cNULlL2s 
else 
{ 
it <fopentfilename,fd) == -1i) 
‘ 
freetfd); 
return <NULL>) ; 
$ 


returnt¢#d)s3; 


Xo! 


(continued on next page) 
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C/ UNIX Listing (Listing continued, text begins on page 116) 


if (*#mode == “a‘*) “* append made */ 
t 
pFe Ret to > el boc eaurslz 32> 
return¢NuLL) ; 


e|lse 
{ 
if ¢fappendtfilename,td)s == —-13 
freetcfd); 
return ¢NuLl» ; 
returnitd); 
t 
return NULL) ; “*® failure #4 
a 2 
oe 
HE Standard tclase 
=e 
ef 


e¢fclaset fd? 
ete: G4 


4 
4 


fputc(CPMEOF , fd); 


if (bLtclose (+d?) 

{ 
free cfd): 
returntNULL? ; 


return (ERROR? ; 
3 End Listing 
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SOFTWARE REVIEWS 


PC-Write 


Company: 
Quicksoft, 219 First N. 
#224, Seattle, WA 98109 
Computer: IBM PC 
Price: $10; Full registration $75 
Circle Reader Service No.127 
Reviewed by Ronald G. Parsons 


The number of good programs avail- 
able for the IBM PC under marketing 
arrangements similar to Freeware is 
increasing. This is a good sign for both 
users and the industry as a whole. Us- 
ers are able to obtain good, if not the 
best, software at a reasonable price, 
and the small software developers are 
able to gain some market share with- 
out requiring a million dollar advertis- 
ing campaign to get started. PC- Write 
is a good example of this trend. 

Bob Wallace, PC-Write’s designer, 
is making it available under a variation 
of Freeware he calls commission 
Shareware. If you register your copy of 
PC-Write with Quicksoft and someone 
obtains a copy from you and registers 
it, Quicksoft will give you a commis- 
sion of $25, one-third of the registra- 
tion fee. Register your copy, give away 
three copies, and, when they are regis- 
tered, you will have all the advantages 
of registration at no cost. Registration 
has several benefits: telephone support, 
a bound copy of the documentation, 
and the complete source code (Pascal 
and assembler). 

PC-Write provides a full set of word 
processing functions without a lot of 
the frills that may or may not be useful 
to many users. All the functions neces- 
sary for editing letters and short docu- 
ments are provided. However, a way to 
merge several files together is only 
weakly provided, and there is no spell- 
ing checker. I consider these two fea- 
tures to be extremely valuable—al- 
most mandatory. The program does 
create standard PC-DOS files so that 
many standard spelling checkers will 
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work, including IBM’s Word Proof, 
which I consider the best value avail- 
able today in PC software. 

Printing functions are provided with 
a separate program so that true “what 
you see is what you get” is not avail- 
able. Support is provided only for 
dumb printers, although users can im- 
bed printer control escape sequences 
and control codes if they desire; that 
does not come under the heading of 
ease-of-use. Headers, footers, margin 
and spacing control, page skipping, 
and numbering, as well as input file 
changing, are about all that is provid- 
ed. For much work this is all that is 
needed. 

All the function keys, Shifted, Alt- 
ed, and Ctrl-ed, are used, as are many 
control keys. The functions assigned to 
the control keys, which are user config- 
urable, are initially set to be similar to 
WordStar. Configuration is a strong 
point of PC-Write. The use of color 
(where available) for different word 
processing functions is well done. 
Pressing Fl produces a menu of all the 
function keys and other major opera- 
tions. However, so many key functions 
are available that the help screen is be- 
wilderingly complex. The designer 
seems to have leaned toward providing 
more function at the expense of sim- 
plicity and ease-of-use. I would hesi- 
tate to give this program to users unac- 
customed to the complex keyboard of 
the IBM PC and expect them to be able 
to use PC-Write quickly. As an exam- 
ple, PC-Write has at least six or eight 
different cursor shapes—each denot- 
ing the present status of some function, 
such as insert (or pushright) mode, 
shift or control key status, or the cur- 
rent status of marking text. The varia- 
tions are too many and too subtle for 
my taste. 

Cursor movement is available in 
many ways—character, line, word, 
paragraph, or screen (up or down). 
However, the convention of which key 
to use is reversed from many other PC 





products. The meaning of the PageUp 
and PageDown keys can be reversed, 
but others cannot. All this leads to 
more confusion for inexperienced 
users. 

The only bug I ran into was an in- 
ability to handle files that have line- 
feeds without always being accompa- 
nied by a carriage return. This 
interferes with the paragraph format- 
ting and line delete functions and 
causes the program to loop, requiring a 
power-off reset to continue. 

I found the product to be useful but 
too complex. In my rating scheme, 
ease-of-use is the most important attri- 
bute. The manual provided is well 
written, but it is hard to find informa- 
tion quickly. Topic headings in larger 
typefaces would be desirable. 


PC Small-C 2.0 


Company: 
The Coriolis Company 
Box 76, Clinton Corners, 
NY 12514 

Computer: IBM PC 


' Price: $35 


Circle Reader Service No. 125 
Reviewed by Ronald G.Parsons 


Over the years, Dr. Dobb’s Journal has 
fostered and published the source code 
for a number of implementations of 
small versions of the C programming 
language. Ron Cain developed the 
original Small-C compiler for the 8080 
microprocessor, published in Dr. 
Dobb’s Journal in May 1980 and Sep- 
tember 1980. Versions of this compiler 
were made available for CP/M (The 
Code Works) and IBM PC-DOS 1.1 
(Caprock Systems). J. E. Hendrix de- 
veloped a later version, Small-C 2.0, 
published in Dr. Dobb’s Journal in De- 
cember 1982 and January 1983. The 
product described in this review, PC 
Small-C 2.0, is a revision of Small-C 
2.0 for IBM PC-DOS and Microsoft 
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MS-DOS (versions 2.0 and later). 

PC Small-C 2.0 is not a complete 
implementation of the C language, nor 
does it claim to be. It does provide an 
inexpensive way to learn about and try 
the C language. It also provides, 
through the source code and libraries, 
an excellent way to learn about the 
structure and coding of high-level lan- 
guage compilers. The minimum re- 
quirements for using PC Small-C are 
an IBM PC (or equivalent) with 96K 
memory, one single-sided diskette 
drive, PC-DOS or MS-DOS 2.0 or later, 
and the 8088 PC Macro Assembler. 

PC Small-C provides certain en- 
hancements over Small-C 2.0, includ- 
ing redirection of input and output, ad- 
ditional library functions, hexadecimal 
and octal numeric constants, code gen- 
eration optimized for the 8088 micro- 
processor, and automatic declaration 
of external function references. The 
authors claim that PC Small-C 2.0 
programs are typically 30% smaller 
and twice as fast as equivalent Cap- 
rock Small-C:PC programs. 


Features 

PC Small-C 2.0 supports character 
and integer data types as global, local, 
external, and pointer variables, as well 
as one-dimensional arrays. Not sup- 
ported are float, double, unsigned, 
long, short, or register variables, struc- 
tures, or higher dimensional arrays. 
All the usual unary and binary opera- 
tors are supported, as well as the selec- 
tion operator. Statements supported 
include if, if ... else, while, do ... 
while, for, switch/case/default, break, 
continue, goto, and return. Compiler 
directives supported include #define, 
Hinclude, and #ifdef ... #else ... 
#endif. In-line assembler code is sup- 
ported by the #asm ... #endasm di- 
rective. A fairly complete set of I/O 
library routines is included, but open, 
close, read, and write system calls are 
not provided. This may cause some in- 
convenience in transporting C pro- 
grams to this compiler. Many useful 
miscellaneous library routines include 
abs, isalpha, islower, isupper, peek, 
poke, tolower, and toupper. Several 
IBM PC-specific routines are also in- 
cluded, such as delay, sound, spkroff, 
and spkron. Command line argument 
support is available through argc, argv, 
and getarg. 
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Memory Utilization 

PC Small-C 2.0 trades off memory 
availability (stack, data, and code are 
limited to a total of 64K) against speed 
of execution. For small C implementa- 
tions, this is probably the proper trade- 
off. Large programs requiring other 
data models should use a full imple- 
mentation of C. In-line code sequences 
are favored for speed, and the use of 
segment override prefixes and the BP 
register is avoided. This is made possi- 
ble by setting the data segment regis- 
ter, DS, and the stack segment regis- 
ter, SS, to the same value during 
initialization. 


Compilation 

The compilation process consists of a 
compiler phase, which produces as- 
sembler source code; an assembly 
phase, which produces an object mod- 
ule; and a link phase, which links the 
program object module with library 
object modules or separately compiled 
modules. Because of this assembly step 
and the slowness of the IBM assembler, 
the compilation process is somewhat 
lengthy. For instructional purposes, 
however, the easy availability of the 
generated machine code is invaluable. 
A compiler switch can cause the 
Small-C source code lines to be includ- 
ed as comments in the assembler 
source code. 


Benchmark 

No review of a C compiler seems to be 
complete without a benchmark using 
10 iterations of the Sieve of Eratosthe- 
nes. The times in the figure (page 123) 
were obtained using an IBM PC XT 
running PC-DOS 2.1. 


Conclusion 

PC Small-C 2.0 is an excellent value to 
someone wanting to investigate or 
learn C or to learn how compilers are 
constructed. The small price includes a 
reference manual, the complete source 
and executable code, and even a remit- 
tance to Ron Cain and J. E. Hendrix. 
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THE PROGRAMMERS SHOP 


helps compare, evaluate, find products. Straight answers for serious programmers. 
Our Free Report: PRODUCTIVITY - MSDOS | @2¢=CubIseeIiaaires 


* Programmer's Referral List - Dealer's inquire PROFILER - Examine MSDOS program execution 
* Compare Products - Newsletter Assume use of compiler and typical editor. What commercial or public domain prod- speeds. Determine where to improve programs in any 
* Help find a Publisher » Rush Order ucts, what techniques improve productivity? “Productivity with MSDOS" is a growing | Microsoft language, Lattice, or C86. Make histograms 
* Evaluation Literature free + Over 300 products document with some answers. Call to request it. Help improve it. Earn $50 credit to- | that show time “a in portions of your program, and 
* BULLETIN BOARD -7 PM to 7 AM 617-461-0174 ward any purchase when we add any description, code, or idea received from you. doing MSDOS 1/0, etc. $175. 

T QUR 


LIST OUR LIS 
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8080:.BDSC-Fast, popular 150 125 EDIX-clean PCDOS 195 C Tools 1 - String, Screen PCDOS NA 115 p CPM80 350 239 
8080: AZTEC C- Full 199 call  FINALWORD-for manuals 8080/86 300 C Tools 2 - OS Interface PCDOS NA 92 MSDOS 350 249 
280: ECOSOFT-Fast, Full 250 225  MINCE-likeEMACS CPM, PCDOS 175 FLOAT 87 - Lattice, PL1 PCDOS NA SBB PASCAL-great, fast  PCDOS 350 315 
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SMa fe eeh Neate aloe ri 569 8086 200 159 ISAM: Access Manager - 86 400 
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Active Trace-debug 8080/86 80 72  SSFORTRAN-86 CPM-86 425 345 PASCAL TOOLS - Blaise NA COBOL - Level 8086 1600 1275 

MBASIC-80-MicroSoft 8080 375 255  FORTRAN-80-66decent CPM-80 500 350 SCREEN: Display Mgr. 86 CODESMITH-86- debug PCDOS 149 139 

CB-86 - DRI cPm86 600 419 DRFORTRAN COMING WINDOWS for C PC IQ LISP -full 1000KRAM PCDOS 175 call 

Prof. BASIC PCDOS 345 325 | RMFORTRAN COMING Virtual Screen - Amber PCDOS JanusADA-solid value  PCDOS 500 449 

BASIC Dev'tSystem PCDOS 79 72 MBP Cobol-86 - fast 8086 750 695 
Microshell improve CPM 8080 150 125 

FEATURES Microsoft MASM-86 MSDOS 100 85 

C INTERPRETERS for MSDOS - Ask about PL/1-86 8086 750 530 § 


; PLINK-86 - overlays 8086 350 
oe fr beginners for $85 o fu Call for a catalog, literature, and answers POWERS Osh iby Oat ee 
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PROLOG-36" 


Learn Fast, 
Experiment, Prototype 









UNIX -like Utilities for 
C Programming with source 







1 or 2 pages of PROLOG would require 10 or 15 pages in 
“C”- and PROLOG is much easier. 


In one evening develop a feel for PROLOG. In a few days 
understand and enhance artificial intelligence programs 
included like: 


Save time when working with your C programs. Full 
source lets you make them work your way, helps you 
learn. 








Utilities included: compare files (DIFF), cross reference 
your variables (CCREF), examine the flow of functions as 
they call each other (FCHART), format and indent pro- 
grams (pretty printer), search for patterns (GREP). Others 
check program syntax, print programs your way and 
more. 






“ an Expert System 
* a Natural Language Processor 







PROLOG-86 includes two tutorials, a reference, 6 sample 
programs and a PROLOG Interpreter. 







UNIX is a trademark of Bell Labs. 


Intro price: $125 for PCDOS, MSDOS or CPM-86. Call: $135 for PCDOS, MSDOS, CPM-86 or CPM80. 






Call with questions or for “Programming with C Helper”. 


SOLUTION SYSTEMS” 


45-D Accord Park Drive, Norwell, MA 02061 


617-871-5435 


Full Refund if not satisfied in first 3 weeks. 


SOLUTION SYSTEMS” 


45-D Accord Park Drive, Norwell, MA 02061 


617-871-5435 
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OF INTEREST 


by Michael Wiesenberg 


Turn jr into Papa 


The Drive Two Enhancement 
Package from Rapport Corporation 
is an expansion kit for the IBM PCjr 
that enables it to run “virtually all” 
IBM PC software. For $675, you get a 
360K floppy disk drive, parallel print- 
er port, clock calendar with battery 
backup, and 128K memory (expand- 
able to 512K). Optional accessories 
include an audio amplifier with speak- 
er, to provide audio reproduction on 
any monitor, and a keyboard adapter 
cable. Reader Service No. 101. 


Pascal on PC, ir, etc. 


SBB Pascal, by Software Building 
Blocks, runs on the IBM PC and com- 
patibles; with PC-DOS, MS-DOS, and 
CP /M-86; and also, they claim, on the 
PCjr. Execution time and code size 
compare favorably to other Pascal 
packages, according to benchmarks in 
their brochure. One of the best fea- 
tures is that you don’t have to pay 
royalties on products using SBB code. 
The compiler package is $95. The 
development package is $350. The 


latter adds separate compilation, over- 


lays, BCD arithmetic, 8087 support, 
sources for the runtime library, up- 
dates, and a copy of Watt’s Pocket 
Guide to Pascal (Addison-Wesley ). 
You get a debugger, editor, and editor 
source with both versions. Reader Ser- 
vice No. 103. 


And Modula-2 for PC XT 


Volition Systems, with versions of 
Modula-2 already out for Apple, 
Sage, and IBM PC, now offers the 
language specifically for the XT— 
with utilities, access to any memory 
location, variables based at fixed 
memory addresses, RAM disk support, 
access to I/O ports, screen display 
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mode, 8087 coprocessor support, ex- 
ception handling, subprogram calls 
and overlays, random and sequential 
file access, directory operations, con- 
currency and interrupt handling, 
strings, and BCD arithmetic. For $395 
you get both Modula-2 and Pascal 
compilers, a module library, the Ad- 
vanced System Editor (ASE) for pro- 
gram development and text process- 
ing, a p-shell (Unix-like programming 
environment), utility programs, com- 
plete documentation, an overview for 
new users, a tutorial for those familiar 
with Pascal, installation guide, ASE 
User’s Manual, programming hints, 
and Wirth’s Programming in Mo- 
dula-2. Reader Service No. 105. 





C64 Disassembled 


C-64 source, from Schnedler Sys- 
tems, is the complete assembly lan- 
guage source for the Commodore 64’s 
BASIC and Kernel ROMs, cross refer- 
enced and extensively commented. 
Even included are calls to routines not 
found in Commodore documentation. 
$29.95. Reader Service No. 113. 


Cross-Assemble Almost 
Anything 


2500 AD Software has cross assem- 
blers that run on MS-DOS, PC-DOS, 
CP/M-80, CP/M-86, and Apple IT 
with softcard. You can get all major 
4- and 8-bit families, including F8/ 
3870, COPS 400, NEC 7500, 87xx, 
8051, 68xx, 65xx, 1802, NSC-800, Z- 
8, Z80, 8080, and 8085, and 16- and 
32-bit microprocessors, including 
8086/88, 80286, 16032, Z8000, and 
6800. All packages include relocata- 
ble code, large file-handling capacity 
(buffer overflow to disk), macros, re- 
cursion, nesting, conditional assembly 
(to 248 levels of nesting), assembly 
time calculator, “‘include’”’ files, listing 





control, hex file converter, cross refer- 
ence table, and plain English error 
messages. $99.50 for 4- and 8-bit 
products, and $199.50 for 16- and 32- 
bit (plus $6.50 p. & h. each). Reader 
Service No.109. 








Full C for PC 


c-systems has a full C compiler for 
the IBM PC and MS-DOS computers, 
supporting 8087 or assembly language 
subroutine floating point, and it ad- 
dresses up to 1 Mb code or data. You 
get transcendental functions, ROM- 
able code generation, full featured 
liraries (including DOS 2.0 functions 
with automatic selection of DOS 1.1 
and 2.0 calls), and program chaining. 
You also get c-window, a source- 
level debugger that displays source 
code while debugging, variable display 
and alteration, automatic command 
execution, and multiple breakpoints 
that can be set as function and line 
number. The package also includes a 
fast assembler. All of this will set you 
back but $199. Reader Service No. 107. 





Keep it Clean 


Mini-Vac keeps your computer run- 
ning longer by removing dirt from 
between the keys and other inaccessi- 
ble areas. You can also clean stereo, 
video, and other electronic equipment, 
cameras, and other areas most easily 
reached by a portable vacuum clean- 
er. This is not a compressed air unit 
that merely disperses pollutants; it 
sucks them into a replaceable cloth 
vacuum bag. You can also use Mini- 
Vac as a blower. It has two wands, 
two bristle brushes, and can be 
powered by DC or AC, with an op- 
tional adapter. It costs $29.95 and has 
a 90-day guarantee. Reader Service No. 
115. 
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On-Line Desktop 
Accessories 


Ever get a phone call in the middle of 
a computing session, need to jot down 
a note, and can’t find paper and pen- 
cil? Or have to stop in the middle of 
editing to make a computation and 
can’t find your calculator? Sidekick 
from Borland opens windows in your 
application program with electronic 
notepad and editor, calculator, ap- 
pointment calendar, ASCII table, 
automatic dialing, metric conversion 
table, on-line help, and customizing 
capabilities to bring in special tools. 
You get into or out of Sidekick with a 
single keystroke. Currently available 
for IBM PC, XT, PCjr, and “true” 
compatibles, the product costs $49.95. 
Reader Service No. 111. 


Moments to Remember 


The Society for Computer Simulation 
holds its annual Summer Computer 
Simulation Conference July 23-27 
at the Copley Plaza Hotel in Boston. 
Topics include continuous systems 
simulation languages, desktop simula- 
tion, supercomputers, artificial intelli- 
gence, and, in a special meeting of the 
Dutch Benelux Simulation Society, 
research topics on advanced informa- 
tion processing for simulation in the 
Benelux countries and demonstration 
of the Delft parallel processor. Con- 
ference registration is $155 for partic- 
ipants and members of sponsor or 
affiliate societies and $170 for non- 
members. Reader Service No. 117. 


The American Association for Arti- 
ficial Intelligence and the University 
of Texas at Austin Departments of 
Mathematics and Computer Sciences 
are jointly sponsoring a conference 
on artificial intelligence research 
August 6-10 at the Performing Arts 
Center at the University of Texas at 
Austin. Reader Service No. 119. 

The Association for Computing 
Machinery (ACM) holds its 1984 an- 
nual conference October 8-10 at the 
San Francisco Hilton. The main topic 
of discussion will be the fifth genera- 
tion challenge from Japanese super- 
computers. Reader Service No. 121. 

The Sixth Annual Forth Conven- 
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tion, held by the Forth Interest Group 
(FIG), takes place November 16-17 at 
the Hyatt Palo Alto, with tutorials, 
exhibits, vendor booths, lectures, and 
discussions. FIG is a worldwide, non- 
profit organization that has over 4700 
members and 53 chapters. Reader Ser- 
vice No. 123. 





Contact Points 


ACM-84, The Fifth Generation Chal- 
lenge, Box 32575, San Jose, CA 
95152; (415) 948-6306. 


American Association for Artificial 
Intelligence, 445 Burgess Drive, Men- 
lo Park, CA 94025; (415) 328-3123. 


Borland International, 4113 Scotts 
Valley Drive, Scotts Valley, CA 
95066; (408) 438-8400. 


c-systems, Box 3253, Fullerton, CA 
92634; (714) 637-5362. 


Forth Interest Group, Box 1105, San 
Carlos, CA 94070; FIG Hot Line 
(415) 962-8653. 


Mini-Vac, Inc., Box 3981, Glendale, 
CA 91201; (213) 244-6777. 


Rapport Corporation, 80 South Red- 
wood Road, Suite 213, North Salt 
Lake, UT 84054; (801) 292-9454. 


Society for Computer Simulation, Box 
2228, La Jolla, CA 92038-2228; (619) 
459-3888. 


Software Building Blocks, Inc., Box 
119, Ithaca, NY 14851-0119; (607) 
272-2807. 


Schnedler Systems, 1501 N. Ivanhoe, 
Dept. NR, Arlington, VA 22205; 
(703) 237-4796. 


2500 AD Software, Inc., 17200 East 
Ohio Drive, Aurora, CO 80017; (303) 
752-4382. 


Volition Systems, Box 1236, Del Mar, 
CA 92014; (619) 481-2286. 
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Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 198. 


DeSmet 
C 


The fastest 
8088 C Compiler 
available 


FULL DEVELOPMENT PACKAGE 
= C Compiler 
* Assembler 
* Linker and Librarian 
* Full-Screen Editor 
* Newsletter for bugs/updates 


SYMBOLIC DEBUGGER 

* Monitor and change variables by 
name using C expressions 

= Multi-Screen support for debugging 
PC graphics and interactive systems 

* Optionally display C source during 
execution 

* Breakpoint by Function and Line # 


COMPLETE IMPLEMENTATION 
* Both 1.0 and 2.0 DOS support 
* Everything in K&R (incl. STDIO) 
* Intel assembler mnemonics 
* Both 8087 and Software Floating Point 


OUTSTANDING PERFORMANCE 
Sieve Benchmark 
COMPILE 4 Sec. RAM — 
22 Sec FDISK 
LINK 6 Sec. RAM — 
34 Sec. FDISK 
RUN 12 Sec. 
SIZE 8192 bytes 


DeSmet C 
Development Package 


To Order Specify: 
Machine 


0S C1 MS-DOS O CP/M-86 
Disk 06" (75% $8. 064.08 


WARE 


CORPORATION 


P.O. BOX 710097 
San Jose, CA 95171-0097 
(408) 736-6905 


California residents add sales tax. Shipping: U.S. no 
charge, Canada add $5, elsewhere add $15. Checks 
must be on a US Bank and in US Dollars. 
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LATTICE: 


C Compilers 


‘My personal preferences are Lattice C in the top category for its 
quick compile and execution times, small incremental code, best 
documentation and consistent reliability; ...”’ 

BYTE AUG. 1983 

R. Phraner 


‘programs are compiled faster by the Lattice C compiler, and it 


produces programs that run faster than any other C compiler avail- 
able for PC-DOS.”’ 



































PC MAGAZINE JULY 1983 
H. Hinsch 


‘Microsoft chose Lattice C both because of the quality of code 
generated and because Lattice C was designed to work with 
Microsoft’s LINK program.” 

PC MAGAZINE OCT. 1983 

D. Clapp 


‘Lattice is both the most comprehensive and the best documented of 
the compilers. In general it performed best in the benchmark tests.” 
PERSONAL COMPUTER AGE NOV 1983 
F. Wilson 


“This C compiler produces good tight-running programs and pro- 
vides a sound practical alternative to Pascal.” 

SOFTALK AUG 1983 

P. Norton 


‘‘.. the Lattice compiler is a sophisticated, high-performance pack- 


age that appears to be well-suited for development of major applica- 
tion programs.” 


The Writer's Really Incredible Text Editor 
lives up to its name! It’s designed for 
creative and report writing and carefully 
protects your text. Includes many 
features missing from WordStar, such as 
sorted directory listings, fast scrolling, 
and trial printing to the screen. All editing 
commands are single-letter and easily 
changed. Detailed manual included. 
WRITE is $239.00. 


WORKMAN & ASSOCIATES 


112 Marion Avenue 
Pasadena, CA 91106 


Ale Orme (818) 796-4401 


Houston, Brodrick, Kent 
To order, or for further information 
on the LATTICE family of compilers, call or write: All US orders are postpaid. We ship from stock on 
LATTICE, INC. many formats, including: 8", Apple, Osborne, KayPro, 
P.O. Box 3072 Otrona, Epson, Morrow, Lobo, Zenith, Xerox. Please 
~ Glen Ellyn, IL 60138 request our new catalog. We welcome COD orders. 
(312) 858-7950 TWX 910-291-2190 
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We thought about calling it MacSimplex .. . 
after all it makes your IBM®PC behave like a 
Macintosh™ and much more... 


and with over two years in the making, the Simplex 
Database Management System has features like 
32-megabyte virtual memory and the most powerful 
networked/relational database in the microcomputer 
industry. Simplex was designed around how you 
think and the Macintosh way, so that you can use 
your favorite mouse to handle those mundane tasks 
like menu selection and data manipulation. And, if 
you don’t have a mouse, you can use our keyboard 
mouse simulator, MouSim™. 


Pop-up and pull-down menus, dialog and alert boxes 
are not just added features, they are the heart of the 
Simplex way. In addition, Simplex gives you both a 
software and a hardware floating point capability, 
each with 19-digit accuracy. It permits login, 
password, privilege, and can be used on a local area 
network. Simplex has full communications and a 
remote or local printer spooler. Above all, Simplex is 
modular and grows with you! Simplex also has a 
full-featured, English-like language which is simple 
to use. 





You can’t buy Simplex™, but it is now available as an integral part of 
it's my Business™ and will be used by it’s my Word™., it’s my Graphics™,... 
iboats, onesies eal iD needa acaiiiat eatinetchs: MinahaninleastN Maite Mehl.’ Minas: sdsrcsisainlll Medel 


Businessmen! it’s my Business will revolutionize the 
way that you handle your business. It saves time, 
money, and standardizes your system for all who use 
it. it’s my Business comes with applications like 
accounting, interoffice or intraoffice mail, editing, 
invoicing, inventory managment, mail list, calendar, 
scheduler, forms and more. You can modify each of 
these to create applications specifically designed for 
you... maybe we should have called it “it’s your 
Business’”’. 


Professionals! it’s my Business has over 200 pages of 
examples and demonstrations to show you how to 
solve your everyday professional problems. And if 
these examples aren’t enough, we give you a 
complimentary one-year subscription to Questalk™, 
our hands-on Simplex applications magazine. 








je 
"lilt 








System integrators and consultants, beware! If you 
are not using it’s my Business with Simplex to solve 
your problems, don’t be surprised when more novice 
programmers solve that complex math, industrial 
engineering, or business problem faster. We think 
that you can cut your concept-to-development time 
by an order of magnitude! 


it's my Business (includes it’s my Editor) - $695.00 
it’s my Business Demo Disk - $20.00 
it's my Editor - $100.00. 


Quest Research software is available through your local computer store or through mail 
order from Quest Software Corporation at (205) 539-8086. 303 Williams Avenue, 
Huntsville, AL 35801. 


Value added resellers and dealers please contact Quest Research, Incorporated at 
(800) 558-8088. 303 Williams Avenue, Huntsville, AL, 35801. 


™ 








Quest Research Inc. 


IBM is a registered trademark of International Business Machines. Macintosh is a trademark of Apple Corporation. it’s my Business, it’s my Word, it’s my Graphics, 
it's my Editor, it's my Home, it’s my Voice, it’s my Ear, it’s my Statistics, Simplex, MouSim, Questalk, and the Quest logo are trademarks of Quest Research, Incorporated. 
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This is THE PASCAL COMPILER 
You've Been pganng. About 


€ ‘It’s almost certainly better 
=e - than IBM’s Pascal for the PC... 
Recommended.” 


Jerry Pournelle 
Byte, May 1984 


$49.95 


“If you don’t have CP/M [for 
your Apple], Turbo Pascal is 
reason enough to buy it.” 
Cary Hara 


17 VERSION 2.0 Softalk Apple, May 1984 










‘If you have the slightest interest in Pascal . . . buy it.” 
Bruce Webster, Softalk IBM, March, 1984 


And Now It’s Even Better 
Than You’ve Heard! 


e Windowing (IBM PC, XT, jr. or true compatibles) 

© Color, Sound and Graphics Support (IBM PC, XT, jr. or true compatibles) 
© Optional 8087 Support (available at an additional charge) 

e Automatic Overlays 

e A Full-Screen Editor that’s even better than ever 

e Full Heap Management—via dispose procedure 

e Full Support of Operating System Facilities 

° No license fees. You can sell the programs you write with Turbo Pascal without extra cost. 

Yes. We still include Microcalc . . . the sample nee written with Turbo Pascal. You can study the 
source code to learn how a padehect is written . . . it’s right on the disk.* And, if you’re running Turbo 


Pascal with the 8087 option, you’ll never have seen a spreadsheet calculate this fast before! 
*Except Commodore 64 CP/M. 


Order Your Copy of TURBO sige cies fa VERSION 2.0 Today Se 
Per VISA and MasterCard orders call toll fee _ | 1-800-227-2400 x968 
. In California: a — 1-800-772-2666 x968 
en 24 hrs, a ae a week) : — oe ae & Distributor inquies ¥ Welcome 408-438-8 




















- Choo © One fplees add $5.00 for ee et. 




















_ Moy Onder — : My system is: 8 bit = 16 bit eo 
.. ping and| Os ior S. orders. et VISA Master Card _____ Operating System: CP/M 80 —_—— = _ . 
oe a6 Prde Phe = MS DOS DOS - oo 

hacke Pascal 2.0 $49.95 + $5. OO Exp. date: ne Computer: : 
__ $5 Ape 8087 support Disk Format: __ | 
| Please be sure model number & ceo are correct. 
___ Update (1.0 to 2.0) Must be accom- D) BORLAND Name: : 
_ panied by the original master $29.95 a> INTERNATIONAL Adasoss: 
+ $5.00 Borland International ° City/State (Lip: 
_____ Update (1.0 to 8087) Must be 4113 Scotts Valley Drive... . = 


igi ~ Scotts Valley, California 95066 Telephone: = 2 : _ 
se sea ae Cee ee TELEX: 172373 California residents add 6% sales tax. Outside USA.add $1 5 00 (t 
ed » ” _ outside of U.S.A. payment must be by bank draft payable in the US 
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